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-Sep- 21: KSVMSMA :CEDF .SRCJEDFGRF .B32; (1 
° er eee aes Ios ee eas fens ceor sacde 32;1 9 
0 ZTITLE "EDFSGRAPH plotting module’ 
MODULE EDFSGRAPH ( 
IDENT = ‘V04-000', 
sO ORESeine MODE ( EXTERNAL = GENERAL ), 
8 OPT EL 
0 ) 
0 BEGIN 
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:* ™ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'@ ALL RIGHTS RESERVED. 
I 


'e 
SOF TWARE FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 


] 
1 
2 
| 
ADDRES NG_MODE ( NONEXTERNAL = GENERAL ), 

LEVEL 

= 
'* TH 


S IS E 
1 Tat oe ee WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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'® INCLUS OF THE : SOF TWARE ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
tt OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
} TRANSFERRED, : 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
® 

'® DIGITAL ASSUMES NO RESPONSIB * 
'® SOFTWARE ON EQUIPMENT WHIC * 
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1 
3 : FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY 
003 i ABSTRACT: This facility is used to create, modify, and optimize 
ORs } FDL specification files. 
094 ENVIRONMENT : NATIVE/USER MODE 
One AUTHOR: Tamar Krichevsky 
004 CREATION DATE: 31-Jul-1981 
° | 
One : MODIFIED BY: 
048 1! v03-002 KFHO002 Ken Henderson 20 Jan 1983 
049 : Fixed definition of xxx_INTENSITY 
bat constants. 
0¢ ; vO3-001 KFHOOO1 Ken Henderson 22 Nov 1982 | 
5 : Commented out references to 
bee ! EDFS_INTSWERR; added OPTLEVEL=3 | 
086 } Add require of Lib$:edfstruct | 
05 i ee 


| 
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EDF SGRAPH EDFSGRAPH plotting module 16-Sep-1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Page 
1047000 ° 12-80-1382 99:39:88 DI KSUMGMASTERSCEDE SRC TEDFGRF .B32;1 . 3B 
; 0 1! 
; 60 9 1 ! TABLE OF CONTNETS 
3; «(6 60 1! | 
H 6¢ 061 1 
H 6 062 1 FORWARD ROUTINE 
i; 664 063 1 EDF SGRAPH : NOVALUE, ‘Driver for the plot routines 
3; 669 064 1 GET_GRAPH_INFO : NOVALUE, ‘Determines plot characteristics 
; «666 065 1 PLOT_LINE_GRAPH : NOVALUE, ‘Plots a simple graph (line graph) 
2 or 64 1 MOVE_LINE_ GRAPH _: NOVALUE, 'Changes the shape of a simple graph 
; «68 B29 1 PLOT-SURFACE_GRAPH: NOVALUE, ‘Plots a tabular graph (surface plot) 
; $9 068 1 ERASE PAGE : NOVALUE, ‘Erases a screen 
; 0 One? 1 DRAW_Y_AXIS : NOVALUE, ‘Draws the y-axis Line 
> 2. 0 1 C_Y_AXIS : NOVALUE, ‘Puts the y-axis descriptive labels out 
; i al 1 PUT_ROW-SEGMENT : NOVALUE, ‘Put a segment of a graph's row to the terminal 
es. Ore 1 MOVE CURSOR_REGIS : NOVALUE, ‘Position the cursor (REGIS terminals) 
3 674 0073 1 PUT_REGIS_TEXT : NOVALUE, ‘Build and put a REGIS text command 
hes «| 0074 1 SHADE ROW-REGIS : NOVALUE, ‘Shade a segment of the graph <= VT125 
‘*. ® 0075 1 DRAW_BARS-REGIS NOVALUE, ‘Draw the bars for the VT125 Line graph 
oF 9076 1 DRAW_X_AXTS : NOVALUE 'Format x-axis Lablels 
; 0077 1 ; 
; 0078 1 
; 80 0079 1 
; «BI 0080 1! 
; Bg 0081 1 ! INCLUDE FILES 
; 0082 1! 
;  B4 083 1 
; 084 1 
; 0085 1 LIBRARY 
3; «687 0086 1 *SYSSLIBRARY: STARLET’; 
; 8 0087 1 REQUIRE 
; 89 0088 1 "LIBS: EDFSTRUCT'; 
; 90 0382 1 
ee 0385 1! 
: 4 0384 1 ! MACROS 
aes 0385 1! 
; 94 p36 1 
ae «| oe 1 MACRO 
; © 306 1 DSC$L_U1 = 32, 0, 32, 0%, ‘!Field in the array descriptor for the first 
; Oo 0389 1 'dimension's upper boun 
; | «(98 0390 1 DSC$L_U2 = 40, 0, 32, 0%, !Field in the array descriptor for the second 
; 99 0391 1 'dimension's upper bound 
: 100 336 1 
3; 101 393 1 
3 106 $o¢ 1 ‘Translate the given value into ASCII. 
; i 4 95 ' eee ( CTRSTR_ADR, RESULT_LEN, DESC_ADR, PARAM_LIST) = 
3; 6105 M 339 1 LOCAL RTN_STATUS; ‘Return status from SFAOL system service | 
; 106 M0398 1 ‘Translate, and if not successful, then signal the error. 
: 10 m 0399 1 if NOT ( REIN_STATUS = SFAOL( CTRSTR = CTRSTR_ADR, 
3; 108 0400 1 OUTLEN = RESULT_LEN, 
; 109 m 0401 1 OUTBUF = DESC_ADR 
: 110 s 408 1 PRMLST = PARAM_LIST )) 
3; 6112 M 04 1 THEN 
i Me M0404 1 SIGNAL( .RIN_STATUS ); 
oe m 0405 1 END 
3; 114 4 $ 1 i, 
s 995 407 1 
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4 

3 1 H 
; 13? : : 
; 129 1 ; 
; 133 1 LITERAL : 
: 14 440 1 TRUE = 1, : 
: 150 44) 1 ‘FALSE = 0; | 
; «(151 442 | SUCCESS = 1, $ 
; 1 ¢ 435 1 FAILURE = § 3 
Ss Bete 1 ALL_BITS_SET = 255, ‘Unsigned -1, used for comparisons | 3 
s 154 445 1 FULCWORD = 4, ‘Number of bytes in a BLISS=-32 fullword 3 
3 339 446 1 QUAD = 8, 'Size of a quad word -- for declarations ; 
va ° 447 1 NULL = stgnguerd of null characters : 
; 13 448 1 %CHAR(O,0,0,0) 3 
: 186 oso 
3 0451 1 LITERAL 3 
3; 4 pees 1! INVALID_GRAPH_CODE = 100, !Signal arguement - graph code is off the watl : 
. 3 455 1! INVALID LABEL = 101, ‘!Signal arguement - y-axis label is too long 3 
. 4 0454 1 FIRST_RO = 1, ‘Position on screen of first row F 
3 196 Bees ; FIRST_COLUMN = i, 'Position on screen of first column : 
; 6166 0457 1 NO_LAST_INDEX = -1,  ‘!LAST_INDEX value -- signals that graph is to : 
; 167 0458 1 ‘be drawn with axes (as opposed to moved) : 
; 168 0459 1 NO_VALUE = =-1, ‘!Signals that or y of th pixel address is to 3 
3 'be left out (i.e. - C,yJ] or Cx, | 3 

19° Reed : ibe lef (i C J) : 
s 17) re | 1 MAX_PAGE WIDTH = 133. '‘Maximum number of columns on a page : 
: 178 04635 1 SCREEN_BOFFER_SIZE = 512, ‘!Size of buffer for formatting graphs 3 
.- oP 0464 1 X_ BUCKET SIZE = 32,  ‘'Maximum number of block a bucket can contain 3 
3 (174 0465 1 URFACE_GRAPH LEN = 19, ‘'!Maximum number of rows in a tabular graph 3 
3: 175 0466 1 LINE_GRAPH_LER = 10, ‘!Maximum number of rows in a Line graph 3 
: 176 0467 1 PARATOR_QIDTH = ¢° ‘Number columns a plotted value occupies | 3 
; ive Bees ' HEADER_HIEGHT = 3, ‘Number of Lines in the x-axis header ; 
s Ps 
: 179 0470 1! GRFS_LINE = 0 'Code for Line graph : 
; 180 0471 1! GRF$_SRF_INCREASING = {, |'Code for surface graphs with increasing values ; 
; «(181 bors 13 GRFS$_SRF_DECREASING = 2, !Code for surface Paphs with decreasing values | : 
3 ine 0475 1 GRFS$_CIN = EDFSC_ NE, !Code for line graph : 
; WORF L = WORF L »  !Code for surface graphs with increasing values 3 

18 74 «1 GRFS$_SRF_INCREASING EDFSC-SRF_INCREASING 'Code f f 9 hs with i i L 
3 is o : GRF$_SRF_DECREASING = EDFSC_SRF_DECREASING, 'Code for surface graphs with decreasing values 3 
; «4186 bap 1 GRF$_REGIS_POS = 0, !Code for position command : 
; «187 078 1 GRFS_REGIS_VCTR = 1, !Code for vector command 3 
3 H+ 84 ! GRF $~REGIS~ SHAD = 2, ‘!Code for shaded vector command | 
3; 190 481 1 CHAR_WIDTH = 2 ‘width, in pixels, of a text-character cell 
: #191 § 1 CHAR_HEIGHT = 15, ‘!Height, in gtxeis. of a text_character cell | 
3 196 1 UNIT WIDTH = i ‘Width, in pixels, of a column 
: #19 1 UNIT_HEIGHT =1 Ne ignt. in pixels, of a row 
3 19% 5 1 RIGHT SIDE_LOC = 16h, iRight most pixel address | 
3 «195 1 BOTTOA LOC = 479, ‘Bottom most pixel address 
3 Hh ! AXIS_SAIFT = 5, ‘Number of pixels from origin axes are located | 
: 198 5 1? BACKGROUND INTENSITY= *0°, ‘Code for background intensity 
; ; a 'Code for color (green on color monitor 

199 1! LIGHT_INTERSITY 3 ‘Code for Ligh lor (¢ l itor) 
; 200 91 1! MEDIUM_INTENSITY = ‘°2°, !Code for medium color (yellow) 


X_ORIGIN = RIGHT_§ 


EDFSGRAPH plotting module 16-Sep-1984 00:39:47 - VAX=11_Bliss-32_v4.0-74 Page 5. 
. 1e3eb-19be 13:31:85 DISKSVMGMASTERSCEDE SRCTEDFGRE.832;1° 9%" (3). 
8} 49 : ARK_INTENSITY ne ied peoge for dark color (red) 
¢ 49 BACKGROUND _INTENSITY= ‘O° + 44 C_BACKGROUND COLOR, !Code for peckground intensity 
0 494 IGHT_ INTENSITY 'O' + EDFSC_LIGHT GREEN ‘Code for Light color (green on color monitor) 
04 95 EDIUM_INTENSITY = 'O' + EDFSC-MEDIUM YELLOW, = ‘Code for medium color tyellow) 
05 * DARK_IRTENSITY = 'O' + EDFSC“DARK_RED, ‘code for dark color (red) 
O° 38 ‘Location of greens x-origin on a VT125 
03 9 SIDE_LOC = (UNIT_WIDTH * MAX_BUCKET_SIZE) 
1 


Ss 
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BIND 
REGIS_SET_UP = ZASCID Z%STRING( 


'Change output color gee to a 
° 


‘more pleasing set of colors 


11 
\¢ L 8 
1 L 'Set terminal into REGIS mode 
14 L 8 ZCHAR(27),'Pp' 
15 L . Set defo screen characteristics 
18 t 050 *$(0,0) (ACO,0] (767,479), I(d), $1)', 
1 tL 050 (Set default wr at ioe characteristics 
18 L 9 wv, I(w), F3, M1, NO, P1, P(M2), $0)' 
0 1 5 
st 1 'Change output color map to RED, YELLOW 
58 : ‘and GREEN colors to signify good, fair 
26 L 051 COLOR_SET_RYG = ZASCID ZSTRING( 
5 Lt 051 *S$( MO 19 (a ae ! background, black 
6 Lt 051 * m1 (135) (a hiee 130 s30)", ! dark RED 
7 tL 051 . ne (165) (Ca W150 tty $50)*, ' medium YELLOW 
$8 L 1 . M3 (L100) (a h240 135 s30))" ! Light GREEN 
% 
‘ 


COLOR_SET_BLUE = %ASCID %ST 
$( > a tg a ' background, black 
5) (a hS (30 s20)', ! dark blue 

5) (a h325 160 s60) ' medium blue 

00) (a h245 180 $10) 


7 
»f i Light blue 


SEG 
cece 


). 


IINPONMOPOPoPoTononoTnon 


SSe 


REGIS_ON ainet into REGIS mode 


2 
XASCID XSTRING( XCHARGS 


REGIS_OFF = 'T 


= f regis mode 
ZASCID ZSTRING( ZCHAR(2 
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: 'poor regions of the surface graph.OP 
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| 

> 26 1! 
: 4 ‘ 3 1 ! Structure declarations used for system defined structures to 
: 9 ‘3 : save typing. These structures are byte sized. 
; 42 1 - | 
toe 
° e e 8 ° = 
3 5 45 1 EN] 
; 7 246 (BBLOCK+0)<P,S,E>, 
: 258 548 1 BBLOCKVECTOR CI, 0, P, S. E; N, BS] = 
; 259 545 1 FNBS) 
3 60 1 ((BBLOCKVECTOR+1*BS) +0)<P,S,E>, 
Be BY 
: 264 0884 BEGIN 
: 265 0935 LOCAL DESC_ADR_LCL : REF BBLOCK; 
: € 839 DESC_ADR_LCL = DESC 
3 268 0558 (. DESC ADR. LCLC bSCSA. ny INTER J 
3; 269 0559 ( ROW ® .DESC_ADR-LCLC DSC$L m2 }) + COL ) * SUPVAL)<0, S, E> 
BP Bee ~ 


TWO_P IA _ARRAVL ROW, COL, DESC_ADR; S, E J = 
| 
| 
| 


F 


| 
& 

RRS ae ees ears ee ICHSSBME QQSESE BIECRUABALSNERE ES 2SRlcorcr ons" sb 
! | 
| 


; 273 ee}! 

3 é ! H OWN STORAGE 

; Ss 

3 96 1 OWN 

3 67 1 'The followin jatormat ton is apaeeags oore time EDFSGRAPH is entered. 

3 oe 1 itheretore " i 70° ntained acro 

; § 1 DEVICE_TYPE TE [NITLALC ALL “BITS. Ser ), +; Type of terminal for this session 
3 0 1 DEVICE-FLAGS : supported terminal 

; 4 ! Y_AXIS_LINE 'Column on which y-axis falls 
3 7 1 

3 74=«1«5 

; ye ! EXTERNAL REFERENCES 

; 278 1 {EXTERNAL LITERAL 

3 578 1 EDFS_ INTSWERR ‘Message code for internal software 

3 0579 +1 3 ‘error. This value is used when 
3 p20 1 ‘signalling a wrong graph code or 

: b2 1 #1 ‘peculiar y-axis Label. 

: o8¢ 1 

; 05835 1 

3 b2ge 1 EXTERNAL ROUTINE 

$ 0585 1 LIBSSCREEN_INFO, ‘Retrieve terminal characteristics. 

3 0586 1 LIBSSET_BUFFER, 'Set buffer mode on. 

3 0587 1 LIBSERASE_PAGE, ‘Erase the screen. 

; 3288 ; ut SPUT_STREEN, ‘Write output to screen. 

3 Bene : ul $PUT_OUTPUT ‘Write a Line of output to SYSSOUTPUT 


B 
seeut BUFFER, 'Set buffer mode off. 
| 
| 
| 
| 
| 
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ZSBTTL ‘EDFSGRAPH main routine’ 
1 GLOBAL ROUTINE EDFSGRAPH( GRAPH TYPE, XY_ARRAY_DESC, CURRENT_INDEX, LAST_INDEX, 


Y_HIGA, Y. Y_IN 
YILABEL_DESC, SRADE_ARPAY_DESC 
) :"NOVALOE = 


7 


++ 
FUNCTIONAL DESCRIPTION: 


Determine the user's terminal type and characteristics. Set up a 
buffer to hold the graph as it is being created. Plot the requested 
graph. (Line, Surface) Put the graph to the user's terminal. 


If a Line graph is requested and the Last index (LAST_INDEX 
pereneters equals -1, then the plot will be Yr with the axes and 
abels; if the previous index (LAST_INDEX) is 0 or greater, then 
the graph will be ‘moved’ -- only the inside of the graph will be 
redrawn. Should the user's terminal be something other than a 
DIGITAL supported video terminal, hard copy or foreign terminal, 
the graph will always be completely replotted. 


FORMAL PARAMETERS: 
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' 

i 

' 

q 

i 

i 

i 

i 

i 

i] 

i 

' 

H GRAPH_TYPE : one 7“ code which determines which type of graph 
: will be plotted on this code. 

: XY_ARRAY_DESC : address of the array descriptor which points to the 
; array containing the data to be plotted. 

: CURRENT_INDEX : the current index on the y axsis of the array which 
! contains the data for the requested line graph. 

} Y_LOW, Y_HIGH, Y_INCR : the low, high and increment values for the y 
: xs 
t 

i 

i 

i 

i 

i 

i 
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i 

i 

i 
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| 
| 
| 
| 
| 
| 
a ° 
XY_ARRAY_DESC : address of the array descriptor which points to the 
array containing the shading information for VT125 
surface plots. 
t 
| 
| 
| 
| 
| 


IMPLICIT iNPUTS: 


DEVICE_FLAGS : a Longuerd of flags which are set or cleared by 
LIBSSCREEN_INFO depending on the terminal 
characteristics. 

DEVICE_TYPE =: also returoee by i JOSSCAGEN_ 1 If all bits are set, 

s is the me EDF$GRAPH is being called. 


then th rst t 


IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 


None, unless an nonrecoverable condition is encountered. EDFSGRAPH 
will signal the condition for the caller to handle. 
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} None 
SIDE EFFECTS: 
None 
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‘Descriptor for the data array 
‘Descriptor for the shading array 


NN 
= 


P 
XY _ARRAY DESC : REF BBLOC 
SHADE ARRAY _DESC : REF BBLOC 


WS OONOUSWN—OO Ss 


L 
OLD_BUFFER, ‘Address of previous screen buffer, 


78 ‘if any existed -- otherwise, zero. 
RTN_STAT ‘Status returned from external calls 
NEW “SURFACE ~SRAPH : BYTE, :Set if graph will be completely rewritten 
XY_ARRAY jorcey to hold the data to be plotted 


REF TWO_DIM LARRAYL LONG, UNSIGNED 
SHADE _ARRAY Array of shading information 
REF TWO. DIM _ARRAYL LONG, unsi@ned 1, 


SESS2 


'This vector and its descriptor will be used to format the different 
:graphs, before they are written to the user's terminal. 


SCREEN_BUFFER : ‘Buffer for the output. 
VECTORE SCREEN -BUFFER_ SIZE, BYTE 

SCREEN BUFFER_DESC™ ‘Descriptor for the buffer 
BBCOCKE DSC$k_Z_BLN J 


Be Se Ge Se Se Fe Ose Ge Be Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Fe Se Ge Se Se Se Ge Se Ge Se Seas 


SRECLESSLERE A SS 
totatatotatt tts 
OODoNNNNVINNS 

WO DOONOAUSWN—"ODOOnou 


se Fhaed 
EDF .SRCJEDFGRF .832;1 (6 


Page , 


<7 


4 
EDF SGRAPH EDFSGRAPH plotting module 1b-5e -1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Page 10 
047000 EDF SGRAPH + n routine 1 ~300 71383 99: 1:55 DLEKSVMSHASTERSCEDE SRC SEDFGRF .832:1 ° (7) | 
338 ¢ ;Do we know what kind of terminal are we dealing with? 
39 if -DEVICE_TYPE EQLU ALL_BITS_SET 
a1 HEN 
4 § 6 : ‘This is the first time EDFSGRAPH has been called. Determine the 
40 690 ‘terminal type and check to make sure it is possible to write a 
the $3) iplot to the terminal given its charateristics. 
4 £98 GET_GRAPH_INFO(); 
4 ree 
38 tInitialize the screen buffer'’s descriptor and then set buffer mode on 
38 SCREEN_BUFFER_DESC DSCS$B_CLASS = DSCSK_CLASS_7Z; 
REEN_BUFFER_DESCEL DSCSB_DTYPE = DSCSK_DTYPE 7; 
SCREEN_BUFFER_DESCE DSCS$W_LENGTH J = SCREER_BUFFER_SIZE; 
SCREEN_BUFFER_DESCC DSCSA_POINTER ] = SCREEN_BUFFER; 


:Prepare for putting graphs to the user's terminal. 
if ~DEVICE_FLAGSC SCRSV_REGIS J 
THEN 


| 
;Turn REGIS mode on and set up default screen characteristics. 
PUT_REGIS( REGIS_SET_UP ) 
ELSE 


Set up bufferring for hard copy and ANSI terminals 
if NOT ( RTIN_STATUS = LIBSSET_BUFFER( SCREEN_BUFFER_DESC, OLD_BUFFER )) 


winM— 


:An error has occured while setting buffer mode. 
SIGNAL( .RTN_STATUS ); 


SSS S558 99599 999999398 


oat at at at at ak at th ee EEO eae Bee ee ee ee 
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SOOOCOOSOOOOCOOSOOCOOSOCOSSOOCOOOOOOOOOOOOOOOOOOoOoOoO: 


7 
7 
$38 4 tWhich kind of graph was requested? 
440 7 SELECTONE ..GRAPH_TYPE OF 
441 7 SET 
44 7 
4G 7 ‘Line graph 
446 7 ' 
445 7 { GRFS_LINE ) : 
446 7 N 
447 , IF NOT .DEVICE_FLAGSC SCRSV_REGIS ) 
449 ? . LAST_INDEX NEQU NO_LAST_INDEX | 
451 7 8 -DEVICE_FLAGSC SCRSV_SCREEN J 
43¢ 7 THEN 
45 740 
| 


r- 


79 if (not -DEVICE_FLAGSC SCRSV_REGIS }) 
794 BEGIN 

'Put graph to the terminal. 
99 prt ores 
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EDF SGRAPH EDFSGRAPH plotting module 1b-se 1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Pa 
R600 EDFSGRAPH main rout ine 1ergeen18ke 3:37i85 Pe SUmSHASfERccebE shCSeDrGRF.832;1 
+ 454 74 1A Line prepn et plotted during the last call and the 
; 455 74 ‘terminal is a video; just the shape of the ‘‘curve’’ needs to 
; ? $ rer ‘be changed. 
: 498 145 MOVE_LINE_GRAPH( .XY_ARRAY_DESC, ..CURRENT_INDEX, ..LAST_INDEX) 
; 460 rae ELSE 
: 46 rt6 ‘Either this is the first time for the graph or the user's 
; ret 4 ? :terminal is hard copy. The whole graph must be redrawn. 
3 465 oF 2 PLOT_LINE_GRAPH( .XY_ARRAY_DESC, ..CURRENT_INDEX 
: 466 7 Y_CABEL_BESC, .SHADE_ARRAY_DESC ); 
; 46 8 4 END; 
: tes ; 3 ‘Surf h 
3 'Sur r 
470 6789 serge ed 
3 $7} 0759 £ GRFS$_SRF_INCREASING, GRFS_SRF_DECREASING J : 
: 47 760 IF ..LAST_INDEX NEQU NO_LAST_INDEX AND .DEVICE_FLAGSC SCRSV_SCREEN J 
; re 42 THEN 
: 47 $788 'The Last graph which was plotted was the same type of surface 
3 67 0764 spree. Rewrite the contents of the surface graph and leave 
; 478 0765 'the axes alone. 
3; 479 9768 ! 
; 480 76 NEW_SURFACE_GRAPH = FALSE 
: 481 768 
; 48 788 ELSE 
; 48 0770 
3 rtf {44 ‘Write a whole new surface graph, icluding the axes. 
; 486 Ors NEW_SURFACE_GRAPH = TRUE; 
; 488 0775 PLOT_SURFACE_GRAPH( ..GRAPH_TYPE, .XY_ARRAY_DESC, ..Y_HIGH, 
3; 489 o776 --¥ LOW .-Y_INCR, -Y_ CABEL_DESC, 
; 490 077 “NEQ_SURFACE_GRAPA, . SHADE_ARRAY_DESC 
3; 491 0778 ); 
3; 49 779 END; 
; 49 780 
3 494 4}! 
3; 495 7 ¢ C OTHERWISE J : 
3 one 7 ! SIGNAL( EDFS_INTSWERR, 1, INVALID_GRAPH_CODE ); 
3; 49 784 0; 
3; 498 785 
3; «499 7 § TES 
; 500 7 3 
3; 501 788 
: 6 : i ‘Cl bef itti 
3 ‘Clean up before ex ng. 
; 791 i ° ° 
: ? 
3 0 
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vo4-000 EDFSCRAPH main routine. e=35b-1984 19:21:55 DISKSVMSMASTERS CED osRCSEDFGRF.B32:1°°%° (> 
: 3H ? JF NOT (RTN STATUS = LIBSPUT_BUFFER( OLD_BUFFER )) 
1§ 8 yp SIGNAL -RTN_STATUS) ; 
i 319 ; ELSE 
; 7 04 ‘Turn REGIS mode off 
; 19 3 PUT_REGIS( REGIS_OFF ); 
; A 08 RETURN; 
; 2 0809 ND; ! End of routine EDFSGRAPH 


-TITLE EDFSGRAPH EDFSGRAPH plotting module 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


2c 30 $B 41 28 20 sp 30 2¢ 30 i 53 8 rf 18 seo P.AAB: ASCII <27>\PpSC0,0] (ACO,0) £767,4793, 1(d), \ , 
ue 20 2¢ 29 77 28 49 20 i 56 38 Sh 3 $i ‘ 00028 “ASCII \SIW(V, I(w), F3, MT, NO, PI, POM), SON 
29 30 5 0 st 29 32 4D $f 0 tir : ; 

00 00048 “ASCII <> : 

groroaks, GONE Pann: “LONE. 17694795 : ; 

$1 28 20 20 20 29 30 GF 28 20 30 4p 20 28 3 00034 P.AAD: “ASCHT NSC MO (LOD (a LO) m1 C135) Cav | ; 
SRG S SPP R ERS SG Be tee : : 
20 20 29 30 33 5 3 Q 3 i 3 si 8 a ASCII \h120 (30 530) M2 (165) (a W150 170 s5\ 
0 29 30 30 3 é¢ 28 30 4p 25 20 20 23 nS LASCII \O) M3 (L100) (a h240 L35 $30))\ 

010600 8 BOOkk P.AAC: .LONG 17694832 ; ; 

00000 ‘ bore eADDRESS P.AAD : ; 

$1 28 20 20 20 : 30 6 28 3 30 7 OCC P.AAF: ZASCIT \SCMO (LO) Ca Lo) mt (135) aN 
20 20 29 30 32 5 3 | 3 i : 85 if “ASCII \hS 130 20) M2 (165) Ca W325 160 s6\ 
6 0 6 ; 1 ; F 

0 29 30 31 8c 28 iD O11c LASCII \O) M3 (1100) (a h245 180 $10))\ ; : 

BE AASEES nae a i P.AAE: .LONG 17694832 
oo OHNE IB o aay, ETE CI : : 

010690 ; 148 PLAAG: “LONG 1769 : : 

0 a9 ° Vf ADDRESS H 3 3 

00 00 5C 150 P.AAJ: ASCII £273<92><0><0> ; : 

01 £008, 134 PIAAL: LONG 19694732 

0 158 "ADDRESS P.AAJ 
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EDFSGRAPH main routine Sep-19 DT SKSVMENA STER: ct bE SRCTEDFGRE 832;1 mas HB 


E 
V 


«PSECT SOWNS,NOEXE,2 
FF 00000 DEVICE ae 


<1 ; ; 
$008 -BLKB 3 3 
Mitt DEVICE FLAGS: ‘ ; 
00008 Y_AXIS_LINE: ; 
-BLKB : 
REGIS_SET_UP= P.AAA 
COLOR"SET“RYG= P. AAC 
COLOR" SET-BLUE= P-AAE 
REGIS~ON= P.AAG 
REGIS-OFF= P.AAI 
.EXTRN LIBSSCREEN_INFO 
“EXTRN LIBS$SET -BUFFER. LIBSERASE_PAGE 
-EXTRN LIBSPUT-SCREEN, LIBSPUT_BOFFER 
-EXTRN LIBSPUTZOUTPUT 
.PSECT $CODE$,NOWRT,2 
007¢ 00000 ENTRY EDESGRAPH. Save R2,R3,R4,R5,R6 : 0593 
36 000000006 00 9€ 00002 HOVAB LIBSSIG R6 ; 
55 000000006 09 9E 90008 MOV tIBSPU soute eur R5 : 
54 00000000° 9€ 00010 MOVAB DEVICE ae RG ; 
SE FDF4 CE 9E 00017 MOVAB =-524(SP), : 
FF OF FC «AS «97 0001C CMPB Device. dope. #255 + 0686 
07 12 90021 NEQ 1 F 
00000000v 00 00 FB 000 CALLS #0 GET_GRAPH_INFO > 0693 
04 AE 0200 8F 3¢ 002A 1$: MOVZwL #512, SCREEN BUFFER DESC + 0700 
08 AE 0c AE E 0030 MOVAB ScneeN BUFFER SCREEN_BUFFER_DESC+4 : 0701 
10 64 0 ; 0035 BBC EVICE FLAGS, 2$ : 0706 
00000000' 00 9F 00039 PUSHAB Regis § SET OP : 0711 
65 1 FB 0005 CALLS LYBSPOT_OUTPUT : 
18 0 £8 Oke BLBS Ph STATUS. “4$ ; 
50 DD 0004 PUSHL RTNTSTATUS ; 
14 11 00047 BRB 3$ * ; 
5E DD 00049 28: PUSHL SP : 0717 
08 AE 9F 00048 PUSHAB SCREEN BUFFER_DES ; 
000000006 09 9 FB 0004 CALLS ae, LIBSSET BOFFE ; 
5 D 09 MOVL RO, RIN oF Tus : 
05 E BLBS §_RTN_STATUS, 4$ : 
DD 038 PUSHL RTNTSTATUS : 0722 
$6 iF D 3$ CALLS #1, LIBSSIGNAL ; 
04 gC p 060 4$ MOVL § @GRAPH_TYPE, R2 : 0727 
6 64 BNEG 6 : 0732 
F 64 02 €0 00066 BBS #2, DEVICE FLAGS, 5$ : 07 
FFFFFFFE © BF 10 Bf D O64 CMPL at Ast _INDER, #1 : 0736 
3 0 BEQL 3 
12 64 €9 0007 BLBC DEVICE_FLAGS, 5$ > 073 
10 BC bp 7 PUSHL @LAST INDEX > 074 
0C BC DD O0007A PUSHL SCURRENT _ INDEX ; 
08 aC DD 0007 PUSHL  XY_AR ; 
00000000v 00 03 FB e CALLS rhe MOVE “LINE _GRAPH 
7E 20 Ac 7D 8089 5$: MOVQ Y_LABEL_DESC, -(SP) > 0753 


| 


; Routine Size: 254 bytes, Routine Base: S$CODE$S + 0000 


a gf 
EDF SGRAPH DFSGRAPH plotting module ep 4 9: VAX-11 Blisse 32 V4. 4 E 
v04-000 DF SGRAPH Bain routine 1878 Sep =}382 99: 3} ef DISKSVMSMASTER:CEDF. OS ACSEDFGRE. B32; ” tag ve ys V 
o¢ BC DD 0008 PUSHL @CURRENT INDEX 3 0752 : 
8 AC DD 0009 PUSHL XY_ARRAYDESC ; ; 
00000000v 00 4 Ff 9 CALLS re PLOT“LINE_GRAPH : ; 
3 1 9A BRB 9$ : 0727 ; 
1 9C 6$ BLEQ : 0758) ; 
02 : pi 9 CMPL  R2, #2 ; : 
4 000A BGTR : ; 
FFFFFFFE © 8F 10 BC b4 Soke CPL AST_INDEX, #=1 + 0760 : 
04 64 £9 0 AD BLBC DEVICE_FLAGS : ; 
9 94 90089 CLRB NEW. SURFACE SgRhPH : 0767 : 
50 8; 9 B84 7$: MOVB NEW. SURFACE GRAPH t 0773 : 
24 aC D 0 B7 8S: PUSHL SHADECA Y_D + 0777 ; 
7E 50 9A OOOBA MOVZBL NEW SOE AERA GRAPH, -(SP) : ; 
20 AC dD 000BD PUSHL LABEL_DESC : 0776 3 
if BC DD 90¢0 PUSHL a ; : 
18 BC dD 000C PUSHL = ; : 
14 BC DD 000¢6 PUSHL @Y"HIGH : 0775 ; 
08 AC DD 000C9 PUSHL XY"ARRAY_DESC ; : 
38 DD 990c¢ PUSHL R ; ; 
00000000v 00 0 FB OOcE CALLS PLOT_SURFACE_GRAPH : ; 
8 64 02 €0 00005 9$: BBS #2. DEVITE_FLAGS, 10$ + 0792 ; 
5E DD 00009 PUSHL SP : 0798 ; 
000000006 00 01 FB 000DB CALLS #1, LIBSPUT_BUFFER ; ; 
53 29 D0 OE? MOVL RO. RTN_STATUS ; F 
15 53 £8 OOOE BLBS | RTN_STATUS, 12$ ; ; 
53 DD 00068 PUSHL RIN~STATUS ; 0800 : 
OE 11 OOOEA BRB 11$ 3 3 
00000000" 00 9F OODEC 108: PUSHAB REGIS_OF + 0806 : 
65 gi FB OO0F 2 CALLS #1, LYBSPUT_OUTPUT ; : 
05 8 E8 OOOF LBS RIN STATUS. 12$ 3 3 
50 DD 000F8 PUSHL RTN7STATUS ; : 
66 01 FB OOOFA 118: CALLS #1, LIBSSIGNAL ; : 
04 OOOFD 12$: RET : 0809 ; 


] 
| 
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EDF SGRAPH EDFSGRAPH plotting module 16-Sep-1984 00:39:47 - VAX-11_ BLiss-32_v4.0-74 Page 15| E 
Re 600 Get the graph chofecter stics 12-80-1382 99:59:88 DLEKSVMGHASTERSLEDE SRCSEDFGRF .832; 1 . tid Vv 
3 4 10 1 XSBTTL ‘Get the graph characteristics’ $ 
; 5 12 : ROUTINE GET_GRAPH_INFO : NOVALUE = | : 
3 : 8135 1 S++ : 
; 8 814 1! 3 
; 3 31? ! FUNCTIONAL DESCRIPTION: : 
: 1 a8? 1! Determine the terminal characteristics. Determine the width of the | : 
3 ¢ 0818 1! graph. Set up any screen characteristics, if this is a terminal 3 
; +4 : } which understands REGIS. : 
; $39 8 1 1 | FORMAL PARAMETERS: ; 
; 6 ¢ 1! 3 
3 7 08 7 ¢ None 3 
; 538 0824 1! 3 
s SP 0825 1 ! IMPLICIT INPUTS: 3 
; 540 0826 1! 3 
3 “1 0827 1! None 3 
3 rh} 0828 1! 3 
3 94 +134 1 ! IMPLICIT OUTPUTS: : 
> 544 0830 1! 3 
3 545 0831 1! Y_AXIS_LINE : column which contains the y-axis Line. This value 3 
; 546 bees 1! is only output for non-REGIS terminals. 3 
; 547 0833 1! DEVICE_FLAGS : a Longuere of flags which are set or cleared by H 
; 548 0834 1! LIBSSCREEN_INFO depending on the terminal 3 
3 549 0835 1! characteristics. : 
; 550 0836 1! DEVICE_TYPE : also returned by LIBSSCREEN_INFO. If all bits are set, F 
; a2) + te4 ' then this is the first time EDF$GRAPH is being called. 
3 28 0839 1 ! ROUTINE VALUE: 
3 996 0840 1! 
3 395 0841 1! None 
; 228 pets 1! 
3 3 08435 1 ! COMPLETION CODES: 
; 558 0844 1! 
s $59 0845 1! None 
; 560 pae8 1! 
3; 561 0847 1 ! SIDE EFFECTS: 
3 266 0848 1! 
s 36 0849 1! If the user's terminla understands REGIS, the screen defaults may be 
3; 564 0850 1! altered. 
3; 565 0851 1! 
; 566 baeg 1 !e- 
; U4 B82 1 
> 568 854 2 BEGIN | 
; 289 0855 
; 570 +t) LITERAL 
; Sri 85 SKINNY_LINE = 80 
i Bre 0858 FAT_L z 138, | 
3; 57 85 WIDTH_BOUNDARY = 10 'Minimum columns needed to format a wider graph 
en an 
3 6 866 LOCAL 
3s &7 85 RTN_STATUS, ‘Return status from external calls 
: 578 864 LINE_WIDTH : WORD, ‘Width of page for this session 
; 44 Bee LINES_PER_PAGE : WORD ‘Number of Lines per page on the terminal | 


san 


; 581 
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EDF SGRAPH ty ye Lotting module 16-se $ep-1984 9: VAX-11 Bliss-32 V4.0-7 e 17 
4-000 Get the graph charecter stics eet 99: 3} ef DISKSVMSMASTER: cto £ sre EDFGRF .832;1 i (9) 
: 3 :Determine the terminal type and characteristics. 
: 585 if NOT ( RTN STATUS = LIBSSCREEN_INFO( DEVICE FLAGS, DEVICE_TYPE 
3 LINEWIDTH,  LINES_PER_PAGE | 
oi 
; ey fe 1An error has occured while obtaining the device information. 
: % 0 7 SIGNAL( .RTN_STATUS ); 
: 8c 579 
: 595 Q ‘If terminal understands REGIS, set up screen enerectorTevies s needed 
3 38 1 for plotting the graphs. Otherwise, position the y-axis Line. | 
; 98 8 ; ir .DEVICE_FLAGSC SCRSV_REGIS ) 
; 600 0885 Y_AXIS_LINE = X_ORIGIN = AXIS_SHIFT | 
: 60 O88? ELSE | 
; one 434 :Determine where the y-axis Line should be positioned. 
: 606 0891 iF (.LINE_WIDTH LEQ WIDTH_BOUNDARY | 
3; 607 89 OR 
; 608 089 (NOT .DEVICE_FLAGSC SCRSV_SCREEN J)) 
; 609 0894 THEN 
; 610 8 95 
; 611 8 ‘Have the right most se of the graph fall on the right most 
: oi¢ one ‘column of the pe ge f the user's terminal is ? hard Copy sone 
3 61 0 38 :zero clear in DEVICE FLAGS), then have the y-axis Line fall t 
3 ete 3344 : the lett -- to reduce the number of characters being en Fg 
: 616 901 ’ -AXIS_LINE = SKINNY LINE, ~ 
; 617 4 ((MAX_BUCKET_SIZE + 1) * SEPARATOR_WIDTH) + 1 
3 $13 Ht, ELSE 
: : . $908 ‘If the Line is wide enough, then center the graph across the Line. 
3 
; 6 § 309 ‘ -AXIS_LINE = (FAT LINE = 
; 6 ? m8 ((MAR_BUCKET_SIZE + 1) * SEPARATOR_WIDTH)) / 2; 
: 625 910 RETURN; | 
; 626 911 ND; ! End of routine GET_GRAPH_INFO 
| 
0004 00000 GET_GRAPH_INFO: 
4 -@ORD Save R2 ; 0811. 
52 00000000' 4 + MOV a. SP R2 3 
5E C SUBL 3 
— oD ¢ PUSHL ; 0870 
08 A f PUSHAB tne WIDTH g 
FC OU A f PUSHAB pEviCe type 3 
52 00 14 PUSHL R : 


04 
0064 


04 
04 
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; Routine Size: 72 bytes, Routine Base: 
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FSGRAPH plotting module hese -1984 00:39:47 VAX-11 Bliss-3 P 
ta ik oreone 1278887138 99339585 DISKSVMSMASTER: CEDF 


ZSBTTL ‘Plot a Line roe 
ROUTINE PLOT_LINE_GRAPH( XY_ARRAY DESC, CURRENT INDEX, Y_LABEL_DESC, 
SHADE_ARRAY_DESC ) : NOVALUE = 


FUNCTIONAL DESCRIPTION: 


For each row in the graph: write the y-axis label and mark 
all x-values in the x,y pairs with the y-values which belong 
in this row. Draw and Label the x-axis. 


FORMAL PARAMETERS: 


XY_ARRAY_ DESC : address of the descr 
CURRENT_INDEX : index of the “‘row’’ ( 
for graphing 


ptor for the data array 
irst dimension) requested 


i 
f 
IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
A Line graph 
ROUTINE VALUE: 
None 
COMPLETION CODES: 
None 
SIDE EFFECTS: 
Filling of SCREEN_BUFFER; adjusting the values in SCREEN_BUFFER_DESC. 


XY_ARRAY_DESC : REF BBLOCK; !Descriptor for the data array 


LOCAL 
XY_ARRAY ; '‘Array_to hold the data to be plotted 
REF TWO_DIM_ARRAYC LONG, UNSIGNED J, 
RTN_STATUS, ‘Status returned from external galls 
° ‘Index for the array's second dimension 
ROW_LABEL, ‘Label for y-axis value 
ROW POS ‘Current row on graph 
COLOMN POS ‘Column postion for output 
SEPARATOR CHAR, iDummy arguement to PUT_ROW SEGMENT 


CURRENT_VALUE, ‘Current xy-value to be plotted 


ornrs 
« SRCJEDF GRE .B32;1 


<m 


-. 
Wso” =—s«éiBRk os Line grape one Ve=Seb-19Bs 99:37:35 DTScbmGmaSfeRsceoe sRcSeprorr .032;1° 9% «165 
; eB O30 REPEAT COUNT 'Number of times current xy-value is in row 
2 8 ; 


97 


} 
EDF SGRAPH EDFSGRAPH plotting module 18-se 1984 00:39:47 VAX-11 Bliss-32 V4.0-76 Pa 1| 
BL O00 Plot a Line oraphe 1 mH 1 99:39:86 DLEKSVMGHASTERSCEDE SRC SEDF-RF .832:1 049), 
$88 98 1Erase the screen to give the graph a “clean slate”. 
691 97h ERASE_PAGE(); 
69 3) 
$88 i {Set up colors for the graph. 
6 97 iF .DEVICE_FLAGSC SCRSV_REGIS 
$35 980 THEN iia fe . 
639 , PUT_REGIS‘ COLOR_SET_BLUE ); 
9 
701 2 3 1Draw and label the y-axis 
108 9 DRAW_Y_AXIS( LINE _GRAPH_LEN, GRFS_LINE, NULL, NULL ); 
704 3 LABEC_Y_AXIS( .Y_CABEL_BESC, LINE~GRAPH_LEN J; 
7 9 
509 0990 'Create x-axis labels and put them to the screen 
708 991 ! 
709 16.44 
394 
0995 tInititalize those variables needed to create the graph's ‘'curve"’. 


oOo 


Ssesz 


PPB EF PAGED FINAN AAAI CAPIPSPIPINYPINYINIPIPIPININIPIPIPIPIPIPIPIPIPIPININININININPYNAN 


DIM2 = 0; 
SEPARATOR_CHAR = NULL; 


:For each row (y-value) in the graph: 
INCR ROW COUNT FROM 0 TO (LINE_GRAPH_LEN - 1) 
6 BEGIN 
: Determine which row is being written and what it’s label is. 


ROW_POS = .ROW_COUNT ¢ 1; 
ROW-LABEL = LINE~GRAPH_LEN = .ROW_COUNT; 


ND ed dt a ot 


WN =O OONO UF WUD) "OOO VNR UF WwNO 


'If there are more elements for this row of the xy-array and they have 
ithe correct value, then print their value. 


WHILE (.DIM2 LEQ .XY_ARRAY_DESCC DSC$L_U2 ] 


SSS SN 


WN =O OOVNOUE WN" OOONOuewn— 


| 
| 
| 
| 
| 
| 


em ee me we ee 8 me ee ed td ed ed = od —* = = 


sossossescoecesseseeesssssssss: 


5 RY _AMRAY) -CURRENT_INDEX,.DIM2,.XY_ARRAY_DESC ] GEQ .ROW_LABEL 
= UXY_ARRAYE .CURRENT_INDEX,.DIM2,.XY_ARRAY_DESC J] LEQ 0)) 
hes BEGIN 
741 'Save the current xy-value for comparisons; determine the position 
vt 5 rin the row. 
744 5 CURRENT_VALUE = .XY_ARRAYL -CURRENT_INDEX, .DIM2, .XY_ARRAY_DESC J; 
745 8 COLUMN_POS = _-DIAZ; | 


— 
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cana 


rr. 
NO 


E 
P 
| 1883 
; 8 1 f ‘Compare the current value to all subsequent values in the row 
3 76 1 4 ‘until a value which is not equal is encountered. Keep a count 
; 750 1 4 ‘of the equal values, so the right number can be printed in the 
; 751 1034 4 igraph. 
> 3 ¢ 1035 4 H 
aye 1 $ 4 DIM2 = .DIM2 + 1; 
; ‘ i 4 WHILE .DIM2 LEQ .XY_ARRAY_DESCC DSC$L_U2 J 
: 4 $ Hh ; (.CURRENT_VALUE EQL .XY_ARRAYC .CURRENT_INDEX, .DIM2, .XY_ARRAY_DESC J 
; 736 i ; -XY_ARRAYL .CURRENT_INDEX, .DIM2, .XY_ARRAY_DESC] LEQ 0) 
2 1 4 DIM2 = .DIM2 + 1; 
Pe 
: res 1946 2 ‘Calculate the number of equal values and write them out. 
; 265 1048 4 REPEAT_COUNT = .DIM2 = .COLUMN_POS; 
: reo 1050 4 IF .DEVICE_FLAGSC SCRSV_REGIS J 
: 788 19a $ THEN BEGIN 
; 770 1988 IF .CURRENT_VALUE GTR 0 
Bi: 1055 DRAW_BARS_REGIS( .ROW_POS, .COLUMN_POS, .REPEAT_COUNT ); 
TD is 1928 D 
: Oe 1988 ELSE 
: 77 1989 4 PUT_ROW_SEGMENT( .CURRENT_VALUE, .REPEAT_COUNT, _.COLUMN POS, 
: 77 1060 4 ;ROW_POS> .SEPARATOR_CHAR, .CURRENT_INDER, 
; 778 1961 ‘ SHADE _ARRAY_DESC); 
; 780 1988 END; 'DIM2 
; 8 1065 END; 'ROW_ COUNT 
3 784 106? END; ! End of routine PLOT_LINE_GRAPH 


OFFC 00000 PLOT_LINE GRAPH: 
QORD 


-Q0 Save R2,R3,R4,R5,R6,R7.RB,R9,R10,R11 : 0913 
5B 00000000' 9E 02 V DEVICE FLAGS, R14 : 
o00c0000v 0 Fe CALLS #0, ERASE PAGE : 0974 
9 6B f 10 BBC #2. DEVICE FLAGS, 1% : 6979 
2000000ns 9 0000000" HP Fe SEEN FRM GOR aEoeft btn te 
88 EB 1 BLBS RIN STATUS .71 : 
000000006 00 PB 7 hk: B17 1OSSIGNAL : 
0 eae = 
00000000v bb ba FB 2 CALLS #4, DRAW_Y_AXIS : 


a 
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EDF SGRAPH EDFSGRAPH plotting module 1b-se -1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Page 23 
Rr bao Plot @ Line graph” racer Re Io see NL ealeteacceoe sacleprore e32e1 ee «143 
oc ke BB 5 Suet BEL DESC o 
00000000v 00 é FB ; CALLS ‘ LABEL_Y_AXIS : eee 
00000000v 00 1 43 4 CALLS #1, DRAW_X_AXIS : 
6 D4 0004 CLAL + 0997 
A 04 CLRL §§ SEPARATOR_CHAR : 0998 
55 04 AC dO MOVL XY_ARRAY_BESC, RS : O16 
5 p4 CLRL 00_¢ + 102 
53 01 2$: MOV 1(R2), ROW_P : 1009 
54 OA C 5¢ SUBL3 ROW COUNT, #10, ROW LABEL + 1010 
28 AS bi 66 3$: CPL oe RS + 1016 
50 00 0066 R5, DESC_ADR_LCL + 1018 
51 08 Ac 18 AO C 6 MULL 24(DESC_ADR_CCL), CURRENT_INDEX, R1 : 
2] 56 C0 of ADDL2 DIM2, RT ; 
4 04 B041 01 000 3 L @4(DESC_ADR_LCL)CR1], ROW_LABEL : 
iF 1 007 BGEG 6-«5$ ; 
50 55 D 79 MOVL. R5, DESC_ADR_LCL + 1020 
51 08 AC 18 Ad C5 0007 MULLS 24(DESC_ADR_CCL), CURRENT_INDEX, R1 : 
51 56 CO 008 ADDL2 DIM2 ; 
04 8041 05 0008 TSTL @4(DESC_ADR_LCL)ER1) : 
74 14 00089 4$: BGTR 10$ F 
51 55 00 0088 5$: MOVL. R5, DESC_ADR_LCL + 1027 
50 08 AC 18 Al C5 O008E MULLS 24(DESC_ADR_CCL), CURRENT_INDEX, RO : 
20 36 CO 00094 ADDL2 DIM2, RO ; 
04 B14 00 0097 L a4(DESC_ADR_LCL)CROJ, CURRENT_VALUE : 
ig 56 DO 0009C MOVL  DIM2, COLUMA_POS ; 1028 
56 (6 O09 6$: INCL DIM : 10 
28 AS 36 D1 00 Al CMPL DIM , 40(R5) + 1037 
é 14 QO00AS BGTR 7 F 
50 5 00 09047 MOVL 5, DESC_ADR_LCL + 1039 
51 08 AC 18 AO C5 OOOAA MULL 24(DESC_ADR_CCL), CURRENT_INDEX, R1 ; 
51 28 CO 0008 ADDL2 DIM2 ; 
04 8041 7 D1 0008 CMP CURRENT _VALUE , @4(DESC_ADR_LCL)CR1] F 
E> 13 0008 BEQL 4 F 
50 D0 000BA MOVL. 5, DESC_ADR_LCL + 1041 
51 08 Ac 18 AO C5 0008 MUL 3 24(DESC_ADR_CCL). CURRENT_INDEX, R1 : 
51 56 CO 000C ADDL2 ODIM2, RT ; 
04 8041 D5 0006 TST 4 (DESC_ADR_LCL)CR1) ; 
p 15 QOOCA BLEQ 36s 6$ ; 
59 56 C cc 7$: SUBL3 COLUMN_POS, DIM2, REPEAT_COUNT + 1048 
11 g E1 000D #2, DEVICE FLAGS. 8$ : 1050 
, De 9b4 st RRENT_VACUE > 105 
0308 a BB Ops PUSHR #*M<R3,R8,R9> > 1055 
00000000v 00 03 FB p CALLS #3, DRAW_BARS_REGIS pom 
10 AC OD 8$: PUSHL SHADE_ARRAY_DESC + 1061 
08 AC DD OO0E PUSHL CURRERT INDEX + 1060 
04 F 68 EB PUSHR #*M<R3,R10> 3 
8 DD OOOEF PUSHL COLUMN _POS + 1059 
0280 8F BB 000F1 PUSHR #*M<R77R9> : 
00000000v 00 7 Fe F5 CALLS #7, PUT_ROW_SEGMENT ; 
FF61 FC 9S: BRW : ; 101 
FFS3 52 01 9 F1 OOOFF 10$ ACBL #9, #1, ROW_COUNT, 2$ : 100 
04 00105 RET > 106 


BSS RREESTY.s'gtchge ooo kde mans 


; Routine Size: 262 bytes, Routine Base: SCODES + 0146 


s-3 0-74 
nen Aten coe OSRCSEDF GRE. B32;1 Page 4f 


<— 
<= 


5s | 
EDF SGRAPH EDFSGRAPH plotting module 16-Sep-1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Page 25) E! 
atest Move the cures en's Line graph 1o-808-} 382 ELL SEKSVMOMASTER EDF SRCTEDFGRF 8321 . 133 | V! 
3 1 1 ZSSBTTL ‘Move the curve on a Line graph’ $ 
3 1 1 oot MOVE _LINE_GRAPH (XY_ARRAY_DESC, CURRENT_INDEX, LAST_INDEX ) : $ 
3 , : i ! NOVALUE = : 
Re We dis 7 
: 09 1074 1 | FUNCTIONAL DESCRIPTION: ; 
3 794 1 78 1/ MOVE _LINE_GRAPH changes the existing curve of the graph. ; 
; 795 1077 1! It checks each value in the current row of th xy-array against 3 
ae 1078 1! the apareeriete value in the last row. If there is a difference, 3 
; 79 1079 1! the old velur is erased and the new value is written out at the 3 
3 a : ei ! H proper location. : 
; 800 19 é | FORMAL PARAMETERS: ; 
; 80 \3 , 9 XY_ARRAY_DESC : Address of xy-array descriptor ; 
; 680 1085 } ! CURRENT_YINDEX : Index of current row to be plotted, in xy-array 3 
3 ooe 1936 : } LAST_INDEX : Index of Last row to be plotted : 
; 806 1088 { IMPLICIT INPUTS: | ; 
; Bee 1 ee erty, | ; 
; 810 109 1 ! IMPLICIT OUTPUTS: ; 
3; 811 1093 1! 
: Bis 1098 1 i a 
; 814 1096 i ROUTINE VALUE: 
3; «681 1097 1! 
sn 
: 818 1100 1 ! COMPLETION CODES: 
3; 819 1101 1! 
: Bt 1108 1 i ~— 
; 8 ¢ 1104 1! SIDE EFFECTS: 
3 1105 1! 
3 4 1108 1! None 
3 5 1107 1! 
; 826 1108 1 !e- 
3 ; 7 1109 1 
; 8 1110 BEGIN 
2 tt 
; 831 118 MY_ARRAY_DESC : REF BBLOCK; !Descriptor for the data array 
; 38 1115 2 LITERAL 
3 1419 CTRSTR_LEN = 4, ‘Length of the control string 
3 3 N18 LEN_FIELD = 1 'Position of length field in the control string 
; 111 ; | 
3 33 1120 LOCAL 
; 1121 XY_ARRAY : '‘Array_to hold the data to be plotted 
; 840 1 5 REF TWO_DIM_ARRAYC LONG, UNSIGNED J, 
3 1 11 ROW POS ‘Current row on graph 
; 842 1124 COLOMN_Pos, iColumn postion for output 


fbee600 pve tne teres onto Lia arent 1$-$00-1984 93:37:85 DESKSUMGHASTERSCEDE sRCSeDFGRF.832:1° ro olf 


? 5 BUFFER Out ter for building the output 
§ VECTORC MAX _PAGE WIDTH, BYTE 

DESC ‘Descriptor for BUFFER 
: BBLOCKE DSCSK_7.BLN } 


Oe Oe Se ee ee ee eseces 
Oo 

a a 

a 


| 

0 o 

1 2 BIND 

é CTRSTR_DESC = ZASCID"!2uB" 
| 
| 
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104-000 Move the curve en's Line graph 12786871382 9933988 DL SKSVMEMASTERSLEDE SRCTEDEGRF 832; 1 ’ 18} V 
3 3 1134 'Intialize variables $ 
3 4 1135 ! F 
3 5 11 8 (BUFFER) s ° vs $ 
; $ 11 DESCE DSCSB_CLASS } = DSCSK_CLASS_2; ; 
3 5 11 DESCL DSCSB_DTYPE = porte DTYPE_2; ; 
3 53 aE DESCLE DSCSA_POINTER J] = BUFFER; : 
; 114 : 
; bet 1108 ‘For each value: 3 
5 6 114 INCR DIM2 FROM 0 TO .XY_ARRAY_DESCC DSC$L_U2 J $ 
ie ley | 
: eg 1108 'If the value at the current index is not equal to the value at the ; 
3 £08 114 ‘old index, then the curve must be altered... erase the old value 3 
3 ef 1308 rand write the new one in the appropriate row. : 
; 869 1190 IF .XY_ARRAYE .CURRENT_INDEX, .DIM2, .XY_ARRAY_DESC J ; 
; 871 1182 .XY_ARRAYC .LAST_INDEX, .DIM2, .XY_ARRAY_DESC ] : 
; He 115 THE 3 
3s 87 1154 BEGIN 3 
; 874 1155 3 
3; 875 1156 ‘Erase the old value. 3 
3; 876 1157 ! 3 
3; 877 1158 INCR CHAR_POS FROM 0 TO ( SEPARATOR_WIDTH = 1 ) DO 3 
; 878 1159 purr ere -CHAR_POS J = ' ''; 3 
; 879 1160 DESCE DSC$W_LENGTA ] © = SEPARATOR_WIDTH; ; 
; 880 1161 3 
3; «6881 1196 3 
3 oes 118? :Determine which row the value to be erased is in. : 
; 884 1165 If .XY_ARRAYS .LAST_INDEX, .DIM2, .XY_ARRAY_DESC ] GEQ LINE_GRAPH_LEN ; 
; 886 1167 .XY_ARRAYE .LAST_INDEX, .DIM2, .XY_ARRAY_DESC ] LEQ 0 ; 
: 888 1169 ROW_POS = FIRST_ROW : 
3; 889 1170 LSE 3 
3; 890 1171 ROW_POS = LINE_GRAPH_LEN - 3 
; «891 1176 -XY_ARRAYC eLAST_INDEX, .DIM2, .XY_ARRAY_DESC ] + 1; 3 
: a36 117 3 
3; 89 1174 3 
3 B3e 110? tWhich column does it reside in? 3 
; 96 77 COLUMN_POS = (.DIM2 + 1) * SEPARATOR_WIDTH + .Y_AXIS_LINE; ; 
: 898 1179 : 
3 +4 1! ‘Write over the old value with blanks. 3 
: 901 11 é PUT_TEXT( DESC, ROW_POS, COLUMN_POS ); : 
3 4 11 3 
: 90 1184 3 
3 Boe i 5 : Translate the new value to be placed on the curve. : 
; 906 11 LF .XY_ARRAYE .CURRENT_INDEX, .DIM2, .XY_ARRAY_DESC ] LEQ 0 : 
3 30 1188 HEN : 
: 8 1189 3 
3; 909 1190 4 BEGIN : 
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(BUF FERC 9 ?) 2' ¢, 
DeScL DSCSW_LENGTH J] = SEPARATOR_WIDTH; 


-CUOPRENT INDEX, .DIM2, 


LSE 
TRANSLATE VALUE( CTRSTR DESC DESCC DSC$W_LENGTH J, DESC, 
XY_ARRAY 
XY_ARRAY_DESC J); 


: Determine which row the value to be written should be in. 
if »XY_ARRAYC .CURRENT_INDEX, .DIM2, .XY_ARRAY_DESC ] GEQ@ LINE_GRAPH_LEN 
«XY_ARRAYC .CURRENT_INDEX, .DIM2, .XY_ARRAY_DESC ] LEQ 0 
ROW_POS = FIRST_ROW 
ELSE 
ROW_POS = LINE_GRAPH_LEN - 
~XY_ARRAYC™. CURRENT_INDEX,.DIM2,.XY_ARRAY_DESC ] + 1; 
iWrite over the old value with blanks. 
PUT TEXT ¢ DESC, ROW_POS, COLUMN_POS ); 
: ! End of routine MOVE_LINE_GRAPH 


-PSECT $PLITS,NOWRT,NOEXE,2 
L: .ASCII \!2UB\ 
K: .LONG 17694724 

“ADDRESS P.AAL 
CTRSTR_DESC= P.AAK 

.EXTRN SYSSFAOL 
.PSECT $CODES,NOWRT,2 

01FC 00000 MOVE LINE. GRAPH: 


0000006 00 9€ hOVAB att aes ty ie eae 
3 tittdantdts 88 3 $005 MOVAB LIBSSIGRAL R7- 
5E aay ce 4 0019 MOVAB = 48 (SP) §p 
10 AE 202020 F pO 0001 MOVL  #538976268, BUFFER 
A AE B4 00010 CLRW DESC+2 

A 0 AE 9 00 MOVAB BUFFER, DESC+4 

5 04 ac 70 MOVQ XY_ARRAY_DESC, R5 

54 1 cr 0 MNEGL #17 DIM2 

0121 C 1$: BRW 13§ 

2 5 D F 2$: MOVL. R5, DESC_ADR_LCL 

6 18 Ae C é MULL 24 LDESC Ror_CCL). R6, R1 

1 3 ¢ ADDL DIM RT 

50 5 DO O003A MOVL. RS, DESC_ADR_LCL 

AC 18 AO C5 00030 MULL3 24¢DESC_ADR_CCL), LAST_INDEX, R3 


6 
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5 54 CO 00043 ADDL2 DIM2, R3 ; : 

04 Bor’ 04 8241 D4 46 CPL 94 (DESC_ADR_LCL)CR1I, @4(DESC_ADR_LCL)CR3] : ; 

4 0004F CLRL  CHAR_POS : 1158 ; 

10 AE4O %9 1 3$: MOVE #32, ~BUFFERCCHAR_POSJ + 1159 ; 

F7 5 F 5 AOBLEQ #1, CHAR_POS, 3$ : : 

08 A 8 A MOVW ae. DESC + 1160 : 

5 D MOVL. 5, DESC_ADR_LCL + 1165 ; 

51 0c AC 18 Ad C3 06 MULL 24 (DESC -ADR_CCL), LAST_INDEX, R1 : ; 

OA 04 8041 Di 06h cMPL a4 (DESC_ADR_LCLICR1I, #10 : : 

50 i 0 BSF MOVL a8 DESC_ADR_LCL + 1167 ; 

51 oc AC 18 AO C 74 MULL3 24(DESC_ADR_CCL), LAST_INDEX, R1 : ; 

51 54 CO 7A ADDL2 DIM2, RT : : 

04 8041 05 0007D TST 4 (DESC_ADR_LCL)CR1) : ; 

06 14 00081 BGTR 5$ : ; 

04 AE 01 06 0083 4$: MOVL #1, ROW_POS + 1169 F 

43 1 BRB 6$ s 3 

50 5 00 0089 5$: MOVL. R5, DESC_ADR_LCL + 1172 ; 

51 oc AC 18 Ad C5 0008 MULL3 24(DESC_ADR_CCL), LAST_INDEX, R1 : : 

51 54 ¢9 9009 ADDL2 DIM2, RT : ; 

04 AE 0B 04 B041 ¢3 0009 SUBL3 @4(DESC_ADR_LCL)CR1], #11, ROW_POS : ; 

50 000000 9° 00 v0 009¢ 6$: MOVL) Y Axis CINE R + 1177 : 

6E 02 A044 3E OOOA MOVAW  2TRO)CBIM2), COLUMN_POS : ; 

5E pd O0A8 PUSHL SP + 1182 ; 

08 AE 9F OOOAA PUSHAB ROW_POS F : 

1 AE 9F OOOAD PUSHAB pest : : 

68 FB 9080 CALLS #3, LIBSPUT_ SCREEN ; : 

05 0 €8 0008 BLBS § RTN_STATUS, ~7$ ; : 

0 DD 0086 PUSHL RIN-STATUS ; : 

67 01 FB 000B CALLS #1, LIBSSIGNAL : : 

50 5 00 00088 7$ MOVL. 5, DESC_ADR_LCL : 1187 ; 

51 56 18 Ad C OBE MULLS 24(DESC_ADR_CCL), R6, R1 ; : 

51 54 CO 0c ADDL2 DIM2, RT F ; 

04 B041 D5 0006 TSTL  @4(DESC_ADR_LCL)ER1] : : 

oc 14 OO0CA BGTR 8$ : : 

10 AE 2020 8F 3C 000C MOVZWL #8224, BUFFER : 1191 : 

08 AE 2 80 0D MOVW #2, DESC ; 1198 : 

A 0D BRB 9 : 118 : 

50 5 D D8 8$ MOVL. 5, DESC_ADR_LCL + 1198 : 

51 56 18 Ad C O90 MULLS 24(DESC_ADR_CCL). R6, RI ; ; 

51 54 C ADDL2 DIM2, RT : ; 

04 B041 pF E PUSHAL @4(DESC_ADR_LCL)(R1) : : 

AE 9F OOODE SHAB DESC : | ; 

1 AF 9F OOOEA PUSHAB DESC ; ; 

00000000' OF ED PUSHAB CTRSTR_DESC ; ; 

000000006 00 4 F F CALLS #4, SYSSFAOL F : 

05 g E FA BLBS RIN_STATUS, 98 ; : 

DD OOOFD PUSHL RTNTSTATUS ; : 

? 1 &F FF CALLS #1, LIBSSIGNAL : : 

0 5 D é 98: MOVL RS. DESC_ADR_LCL > 1203 : 

51 é 18 AO C5 001 MULL 24 (DESC Ror_CCL), R6, RI ; : 

1 54 €0 OO10A ADDL2 DIM2, RT : ; 

A 04 8041 ‘ 1 CMPL (DESC_ADR_LCL)CR1), #10 ; ; 

i 1 BGEG gs : ; 

50 5 00 0011 MOVL  R5, DESC_ADR_LCL > 1205 : 
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51 18 Ad C5 00117 MULL3 24(DESC for _LCL), R6, RI ; 
26 a0 6 11¢ ADDL SInoe ; 
04 8041 bp 1 ste aL Est. ADR_LCL)CR1) ; | 
04 AE i 00 10$ ROVE 136 ROW_POS : 1207 
0 55 DO 00128 118 MOVL. 5, DESC_ADR_LCL + 1210) 
51 36 18 ao C€ 1 MULL 24 (DESC Ror_CCL), R6, R1 3 
1 54 ¢0 001 ADDL2 DIM2 ; 
04 AE 08 04 8041 ¢3 001 SUBL Or cbesc C_ADR_LCL)CR1], #11, ROW_POS : 
ts See 
8 AE 9F 0014 PUSHAB DESC : 
6a Fe 14 CALLS #3, LIB spur T SCREEN : 
05 EB 0014 BLBS = RTN_STAT ; 
0 DD 0148 PUSHL RTN-STAT F 
, 67 1 FB 00140 CALLS #1, ables sIcuat : 
FEDS 54 01 28 «AS fi 00150 13$ ACBL 40(R5) , DIM2, 2% ; 1159 


; Routine Size: 344 bytes, Routine Base: SCODE$S + 024C 
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reate a surface SB aph 12-808= 1 38e 9933758 DL SKSVMGMASTERSLEDE SRCSEDFGRF .832;1 298 44) vO 
i Bsertt. ‘Create a surfac 


saa 


s e graph’ 
OUTINE PLOT. SURFACE.GRAPA( GRAPH TYPE, XY ARRAY DESC, Y_HIGH, Y_LUW, Y_INCR 
Y_LABEL_DESC, REW_SURFACE.GRAPH, SHADE_ARRAY_DESC ) 


oOo 


: NOVALUE = 


'e¢ 
FUNCTIONAL DESCRIPTION: 


PLOT_SURFACE_GRAPH produces a ‘‘table’’ from the ayecorran. For each 
row Tn the onrey each value in the row is printed. If the terminal 
understands REGIS, then shade the background. 


FORMAL PARAMETERS: 


GRAPH_TYPE : type of table being produced (increasing or 
decreasing values 

MY_ARRAY_DESC : address of x nerrer descriptor 

Y_RAIGH : high value of y-axis numeric Label 


VEWN (COONAN wT 


low value of numeric Label 


BRIAR WOO NONE UN Oe 


BRRRRRAARRER ELE EEE EE 


' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i : 

8 : Y_INCR : increment of numeric Labels 
9 ! NEW SURFACE_GRAPH : set if complete new graph will be written | 

oe rt SHABDE_ARRAY_DESC : Descriptor for array containing shading info | 

. | 
366 r } IMPLICIT INPUTS: | 
964 ; Y_AXIS_LINE =: column which contains the y-axis tine. This value 
965 45 : s considered for non-REGIS terminals only. 
206 *$ : DEVICE_FLAGS : a Longuere of flags which are set or cleared by 
96 4 : LIBSSCREEN_INFO depending on the terminal 
968 : characteristics. 
969 49 ! 
370 29 : IMPLICIT OUTPUTS: 

° | 
376 6 ‘ Y_AXIS_LINE : column which contains the y-axis line. This value 
ai 37 } is only output for REGIS terminals. | 
975 55 ! ROUTINE VALUE: | 
376 28 : 
97 5 ' None 
p44 | 58 ! 
9 59 ' COMPLETION CODES: 
980 60 } 
981 61 ! None 
9 ¢ o¢ ! 
9 6 ! SIDE EFFECTS: 
9 64 : 
5 65 : None 
38 ef = 


BEGIN 


—Ooe 


~ 


Pp 
MY_ARRAY_DESC : REF BBLOCK; !Descriptor for the data array 


~“ 


E 
C 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1244 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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3333 


_DIM_ARRAYE L 
: WORD, 


SEPARATOR_CHAR 
RTN_STATUS, 


ROW LABEL 
CURRENT VALUE, 
REPEAT COUNT 


SSSsoncss 


et te 9 
a a a a dt st 
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r$-Sep-1984 00:39:47 vaNedT Lies 82. 4-0 


‘Array _to hola the data to be plotted 
tty UNSIGN 
‘Status returned from external ca 
‘Number of rows in the surface graph 
‘Index for first dimension of xy-array 
'Index for second dimension of xy-array 
‘Label for y-axis value 
‘Current value in row, for comparisons 
‘Number of values equal to current value 
‘Current row on graph 
‘Column postion for output 


-7%4 p 
OeACTEDFGRF.B32:1"° 


0], 
aracter To visually sopereting bends of values 
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DFSGRAPH plotting module 16-Sep-1984 : 9:47 VAX-1 : FGRE.832;1 ae 
06-600" frente a surface Be aph 1 300-1382 99:37:88 DISKSVMSMASTER: CEDF SRCSED GRF .B32 | 
; 1010 1289 :Determine the number of rows in the graph. | 
: i iH i if SURFACE_GRAPH_LEN LEQ ((.Y_HIGH = .Y_LOW) / .Y_INCR) | ; 
: i014 38 THEN WAX _ROWS = SURFACE_GRAPH_LEN = 1 | 
; ii ELSE Ax ROWS = ((.Y¥_HIGH = .Y_LOW) / .Y_INCR); 
; 1919 i $8 IF .DEVICE_FLAGSC SCRSV_REGIS J ; 
; 1020 1 THEN | 
3 19 1 1 9 BEGIN | 
; i ¢ i 03 'Choose separator character. Set up colors for this graph. : 
3 19 4 130 i | ; 
: PARATOR_CHAR = NULL; 
; 19 é i 08 PUT REGIST COLOR_SET_RYG ); | 
71 1 ; 
3 1038 1 89 | 
3; 10 1 4s ELSE 
: 19 ; i 10 : Choose the appropriate separator character | 
; 13 i 12 IF .GRAPH_TYPE EQL GRFS_SRF_DECREASING | 
: 1989 i 18 SEPARATOR_CHAR = '/'; | ; 
> 1038 1317 | 
: 1040 1319 IF .NEW_SURFACE_GRAPH | 
: 10cg 1394 EN BEGIN | ; 
: 1948 § :Erase the screen to give the graph a ‘‘clean slate’. | 
: 1946 13 5 ERASE_PAGE(); | ; 
3 104 
: 1969 i :Draw and label the y-axis : 
3 1050 1 3s | 
: ( .MAX_ROWS+1, .GRAPH_TYPE, .Y_HIGH, .Y_INCR ); | 
: 1082 1 ; DABEC PAKIS( .Y_CABEL_DESC, .MAR_ROWS+1 J; | 
31 1 
: 1984 } ;Draw and label the x-axis 
; 1089 : 3 DRAW_X_AKIS( .MAX_ROWS+1 ); ; 
3 105 1 : 
ep Oe ie | 
+ 1061 40 ‘For each row: | 
; 1068 ¢ INCR DIM1 FROM 0 TO .MAX_ROWS | 
: 1344 BEGIN 
; 1963 1345 


6 
EDF SGRAPH EDFSGRAPH plotting module 18-se -1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Page | 
TR 800 Create a surface Baph 1 ~$0071 382 99:59:88 DLSKSVMSMASTERSLEDE SRC SEDFGRF .832; 1 . aa 
'Reinitialize values for this row. If terminal understands regis, 
tmove the cursor to the beginning o re this row. Shade the row 
;according to the information passed in the shade array. 


ROW_POS = .MAX Rows - .DIM1 + 1; 
GSC SCRS 


IF [DEVICE_FLA V_REGIS J 
THEN 
MOVE_CURSOR_REGIS( GRF$ REGIS_POS, X_ORIGIN 
(,RO@ POS = 1)°* ONIT_HEIGHT, 
NO_VACUE, NO_VALUE ); 
SHADE_ROW_REGIS( .DIMT, (.ROW_POS * UNIT_HEIGHT), . SHADE_ARRAY_DESC); 
MOVE_CURSOR_REGIS( GRF$ REGIS-POS, X_ORIGIN 
(,RO@_POS = 1)°* ONIT_HEIGHT + 1, 
NO_VACUE, NO_VALUE ); 
END; 
085 
Oa$ ‘For each element in the row: 
088 DIM2 = 0; 
089 WHILE -DIM2 LEQ .XY_ARRAY_DESCE DSC$L_U2 J 


BEGIN 


‘Save the current xy-value for comparisons; determine the position 
vin the row. 


CURRENT _VALUE = .XY_ARRAYC .DIM1, .DIM2, .XY_ARRAY_DESC ); 
COLUMN_POS = =_-—. DIM2; 


S33 


SES3322 


‘Compare the current value to all subsequent values in the row 
‘until a value which is not equal is encountered. Keep a count 
‘of ene equal values, so the right number can be printed in the 
‘graph. 

! 


DIM2 = .DIM2 + 1; 
WHILE .DIM2 LEQ .XY_ARRAY_DESCL DSCS$L_U2 J] 


AN 
(.CURRENT_VALUE EQL .XY_ARRAYC .DIM1, .DIM2, .XY_ARRAY_DESC J 
XY_ARRAYE .DIM1, .DIM2, .XY_ARRAY_DESC) LEQ 0 ) 

DIM2 = .DIM2 + 1; 


;Calculate the number of equal values and write them out. 


REPEAT COUNT = .DIM2 - .COLUMN POS; 

PUT_ROO_SEGMENT( .CURRENT_VALUE, .REPEAT COUNT, .COLUMN_POS, 
ROW ~SEPARATOR_CHAR, .DIM1; 
> SHADE_ARRAY_DESC); 


END; 'DIM2 
END; iROW_COUNT 


ee ce ee ce a em ee ee ee a ee ed ed a od ed od od dd 
me a a a aa 8 a nd dd = 2 8 = = 2 8 


ee tt ot tt ee ee ee oe ee ee 
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fhe 600 Create a sur ace Be aph 1$-Se0-1984 99: 3 3 DISKSVMSMASTER: ct Dé OSRCTEDEGRE. B32;1 Page 433 
: 1124 403 
: 1125 12 
; 1126 1405 END; ! End of routine PLOT_SURFACE_GRAPH 


OFFC 00000 PLOT ~Sunr ie GRAPH: 


3 

| 

| 

: 

’ Save i, 2R3 R4,RS_R6,R7,RB,RI,R10,R11 : 1219 ; 

50 oC A 10 ac C3 0000 SUBL vat icu, Réb : 1391 ; 
3 “ & C6 9 DIVL nck "no : : 

5 p C CMPL RO! wt : : 

05 19 F BLSS ss : : 

53 12 00 00011 MOVL #18, MAX_ROWS + 1293 : 

11 00014 BRB 2$ : : 

53 D0 1 1$: MOVL RO. MA Ows + 1295 3 

1p 00000000" 00 E1 00019 2$: BBC DevICe FLAGS, 3$ + 1298 : 
8 B4 021 CLRW SEPARATO R_CHAR + 1304 3 

00000000" 00 9F 3 PUSHAB COLOR_SET“R : 1305 : 

000000006 1 Fe CALLS #1, LYBSPOT QuTPUT : : 
1A 0 € BLBS § RTN_STATUS, ; : 

0 DD PUSHL RTN-STATUS : ; 

000000006 00 oi FB CALLS #1, LIBSSIGNAL ; ; 
F 11 ¢ BRB c + 1298 : 

02 06 AC D1 g 3$: CMPL § GRAPH_TYPE, #2 + 1312 3 

6 12 0004 BNEQ : 3 

58 5c 6 BF «(9B 00044 MOVZBW #92, SEPARATOR_CHAR + 1314 ; 

3 11 00048 BRB ; : 

58 F O4A 4$: MOVW #47, SEPARATOR_CHAR : 1316 : 

1 1c 6AC E9 00040 5$: BLBC NEWS Su RFACE GRAPH, 6$ + 1319 : 

00000000v 00 00 FB 00051 CALLS E PAGE + 1325 3 
16 AC DD 38 PUSHL Y INR : 1330 ; 

C AC OD B PUSHL Y7HIGH ; : 

i 2 BD 5 PUSHL GRAPH_TYPE : 3 

1 AS 9F 0006 PUSHAB 1(MAX~ROWS) ; 3 

00000000v 00 04 FB 64 CALLS #4, DRAW_Y_AXIS 3 3 
01 A3 9F 00068 PUSHAB 1(MAX ROOST > 1331 : 

18 AC DD 6f PUSHL Y CABEL DESC ; : 

00000000v 00 02 FB CALLS We LABEL_Y_AXIS 3 3 
01 AS 9F 00078 PUS 1(MAX_ROW $ 1336 ; 

00000000v 01 FB iB CALLS #1, DRAW_X_AXIS ; : 
$ 08 ac OD 6$: MOVL XY * ARRAY “DESC, R6 3 8 3 

01 g MNEGL am DIMI~ : 1398 : 

0084 BRW 12§ : 3 

55 3 ac 7$: SUBL3. DIM1, MAX_ROWS, RS : 1350 ; 
4 01 A MOVAB 1(R5$, RO@_PO ; ; 

42 00000000" 00 E 94 BBC ae. DEVICE“FLAGS, 8$ > 1351 : 
E CE 0009C MNEGL #1, =(SP) : 1354 : 

7 1 ce OF MNEGL #1. =(SP) ; 3 

3 FF AG t A V -1{R4), R5 + 1355 : 

le C L2 #18, RS ; : 

Bo A PUSHL R5 3 g 

7E BF BF 9A 000AB MOVZBL #191, =(SP) + 1354 : 

§ D4 OOOAF CLRL = = (SP ; : 

00000000v 00 05 FB 00081 CALLS #5, MOVE_CURSOR_REGIS ; : 
20 AC dd 00088 PUSHL  SHADE_ARRAY_DESC ; : 
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#18, ROW_POS, -(SP) 

#3, SHADE_ROW_REGIS 
={3p) 

RS) 

91, =(SP) 

MOVE_CURSOR_REGIS 

40(R6) 


C_ADR_LCL 
RoR CCL), DIMI, R1 


ADR_LCL)CR1], CURRENT_VALUE 
COLUMA_POS 
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SC_ADR_LCL)CR1) 


UMN_POS, DIM2, REPEAT_COUNT 
ADE ARRAY DESC 
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hee plotting module 
rase the screen or page 


: 
Es 


Status returned from RTL call 
Row to start erasing from 
Column to start erasing from 


Starting in the first row and column erase the page. 
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60 bytes, 


K 
8 
CEDE SRC SEDF GRF.832;1° 99" «195 


if -DEVICE_FLAGSC SCRSV_REGIS J 
HEN 


:Erase screen using REGIS command. 
PUT_REGIS( ZASCID ‘S(e)" ) 
ELSE 


ROW.POS == FIRST POW: 


COLOMN_POS = FIRST"C 
IF RTN_ STATUS. ; PTBSERASE -PAGE( ROW_POS, COLUMN_POS )) 


:An error has occured while erasing the page. 


| 
| 
| 
BEGIN 
1Erase the screen to give the graph a ‘'clean slate’. 
SIGNAL( .RTN_STATUS ); 


END; 
RETURN; 
1 END; ! End of routine ERASE_PAGE 
-PSECT $PLITS,NOWRT NOEXE ,2 
29 65 ss 53 00168 P.AAN: .ASCII \S(e)\ 3 
01060004 0016¢ P.AAM: .LONG 17694724 ; 
00000000’ 00170 ADDRESS P.AAN 3 
-PSECT S$CODES,NOWRT,2 
0000 00000 ERASE_PAGE: 
WOR Save nothing : 1407 
5E 08 C2 000 SUBL2 #8, SP ; 
OF 00000000° 0 f 3 000 BBC #2, DEVICE_FLAGS, 1$ 3 144 
00000000" F it PUSHAB P.AAM : 145 
000000006 00 04 f 9 13 CALLS ai. LIBSPUT_OUTPUT ; 
04 AE 1 00 O001C 18 MOVL #1, ROW POS > 1460 | 
6€ 1 DO 00 VL #1, COLOMN_POS > 1461 | 
—E OD PUSHL SP 3 1462 
08 AE OF USHAB R ; 
000000006 99 £ 8 CALLS #2, “TBseRase PAGE ; 
9 F F 2$ BLBS = RTN_STAT $ : 
DD USHL RINTSTATUS > 1467 
00000000G 00 1 6 SM cays #1, LIBSSIGNAL S sare 


Routine Base: $CODES + 04EB 
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1 SSBTTL ‘Draw y-geie for surface Oreeh 
ROUTINE DRAW_Y_AXIS ( GRAPH_LEN, GRAPH_TYPE, Y_HIGH, Y_INCR ) : NOVALUE = 


lee 
' 
FUNCTIONAL DESCRIPTION: 
DRAW_Y_AXIS draws the y-axis Line and writes the numeric Labels. 
FORMAL PARAMETERS: 
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GRAPH_LEN : number of rows in the graph 

GRAPH TYPE 3 type of graph being drawn 

Y_HIGA : high value for y-axis numeric Labels 
Y_INCR : increment for y-axis numeric labels 


IMPLICIT INPUTS: 
Y_AXIS_LINE =: column which contains the y-axis Line. 
DEVICE-FLAGS : a Longuord of flags which are set or cleared by 
LIBSSCREEN_INFO depending on the terminal 
characteristics. 
IMPLICIT OUTPUTS: 
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ROUTINE VALUE: 
None 
COMPLETION CODES: 
None 

: SIDE EFFECTS: 
' Output to the terminal 
1 on 
1 
' BEGIN 
1 LOCAL 

1 ROW_POS ‘Row where Label is to be placed 
1 COLOMN POS, ‘Column in which the label starts 
0 ROW LABEL, ‘Numeric Label for y-axis 

1 X_ARIS_LINE, ‘Location of x-axis Line 

§ CTRSTR_DESC, ‘Address of control string 

BUFFER : ‘Buffer for building the output 

4 VECTORC MAX_PAGE_WIDTH, BYTE J, 

5 DESC : !Descriptor for BUFFER 
§ BBLOCKC DSC$K_2_BLN J 
$ BIND 

0 CTRSTR_DESC1 = ZASCID*!2uB', 


; 
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1233 § aed thi = ZASCID*!UL' 
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ELSE 
ROW_LABEL = .Y_HIGH = (.Y_INCR * .ROW_COUNT); 


co 
MEW —O 


‘If this is a line graph or an “‘even’’ row, put the numeric Label along | 
'the y-axis line. This is for readability... too many numeric 
: Labe s make it hard to read the graph. 


ir -GRAPH TYPE EQL GRFS_LINE 


ED : X-11 ss-3 0 4 Pa 4 
Draw y-axis for surface graph -Sep-1 : DISKSVMSMASTER: CEDF .SRCJEDFGRF .832;1 19 

: ! 28 } é tInititalize variables : | 
; 1260 1 (BUFFER) s'  °, 31 
3 1261 1 6 DESCE DSCSB_CLASS = DSC$K_CLASS_2; 33 
3 3 6¢ 1 DESCE DSCSB_DTYPE = DSCSK-DTYPE-Z; 33 
; | 9 § DESCE DSCSA-POINTER J = BUFFER; ; | 
; 1265 1540 If ,GRAPH_TVPE EQL GRFS_LINE 3 1 
:1 69 1 4g CTRSTR_DESC = CTRSTR_DESC1 : 1 
: 1268 154 ELSE 31 
31 $9 1544 CTRSTR_DESC = CTRSTR_DESC2; 31 
: 15h) 1866 4 
; ! Le: ' of 11f this is a regis terminal, draw the axis Line 3 1 
3 1274 1349 if .DEVICE_FLAGSC SCRSV_REGIS J 31 
; i ie 138 THEN BEGIN ; i 
:1 uf 1382 :1 
5 ' n 132? 1Position the cursor at the begining of the vector. : | 
> 1280 1555 MOVE_CURSOR_REGIS( GRF$_REGIS POS, .Y_AXIS_LINE, FIRST_ROW, 21 
3 ; a 1338 NO_VALUE, RO_VALUE™); : } 
; 1288 1238 ‘Draw a vector finishing at the the x-axis Line. ; } 
; 1385 1389 X_AXIS_LINE = UNIT_HEIGHT * (.GRAPH_LEN ) + AXIS_SHIFT; 31 
3 1286 1561 MOVE_CORSOR_REGIS<(”GRF$_REGIS _VCTR, NO_VALUE, .X_AXIS_LINE, 2% 
: 1287 1366 NO_VALUE, NO_VALUE J; 31 
3; 1288 156 END; 31 
ete : 
; i 91 1366 ‘For each row of the graph: : 
; i 38 1368 incr ROW_COUNT FROM 0 TO .GRAPH_LEN - 1 ; 
; 1295 1370 BEGIN ; 
; } 3 1376 tInitialize variables for this row ; | 
31 1574 DESCL DSCSW_LENGTH ) = MAX_PAGE_WIDTH; > 
; ! 1379 ROW_POS = .ROW_COUNT + 1; ; 
31 1359 IF .GRAPH_TYPE EQL GRF$_LINE | 31 
71 1378 THEN | :1 
; ' i 7 ROW_LABEL = .GRAPH_LEN - .ROW_CGUNT 31 
31 1 | 

3 1 1 | 

3 3 1 

| 7 

3 7 1 

3 1 1 

3 7 1 

3 1 1 

3 7 1 
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EDF SGRAPH ore lotting module 1b-5e Sep-1984 9: VA 32 V4.0-74 P 4 | 
be 600 Draw yronts for surtece graph ~3ep- 1984 93: 3} ef I g a CEDE SRCSEDFGRE.B32;1 298 «49 | 


39 aw MOD 2) EQL 0 
; TRANSLATE _VALUE( .CTRSTR_DESC, DESCE DSC$W_LENGTH J, DESC, ROW LABEL ) 
DESCC DSCSW_LENGTH J = 0; 


~w 


ww 
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‘If this is the first label for the Line graph, an ‘'*"’ is really 
‘desired to denote that the pears in this row are large. Replace 
:the numeric label with a 


if. .GRAPH_TYPE EQL GRFS_LINE AND .ROW_COUNT EQL 0 


oo 


Mew —O0O° 


OOCoooo 


:Determine column to start the string in and write it out. 
iF .DEVICE_FLAGSC SCRSV_REGIS } 
THEN 


| 
(BUFFER) ste; | 
DescL DSCSW_LENGTH ] = SEPARATOR_WIDTH; | 
| 
| 


BEGIN 
COLUMN POS = .Y AXIS LINE = ( $W_LENGTH J+1) * CHAR_WIDTH; 
MOVE E CORSOR “REGTS( GRFS RE G1 


T HE 1 GHf +1, 


es 3 ss 1 OO 


oO 
VOI SSRVOOR Uv SOMNane woe Ne 


NO_VACUE 
eur REGIS_TEXT( DESC, “UTGHT. I 
ELSE 
BEGIN 
,Add the y-axis Line delimiter to the output string. 


bur F RC .DESCE DSC$W_LENGTH ] ) = ‘!°; 
DESCE DSC$W_LENGTH J = beset DSC$W_LENGTH }) + 1; 


COLUMN POS = .Y_AXIS LINE = .DESCC DSCSW_LENGTH J + 1; 
eure TERT( DESC,~“ROW_POS, COLUMN_POS ); 


Be Se Se Se Ge Be Ge Ge Fe Ge Fe Ge Fe Ge Se Se Se Ge he Ge Se Se Se Ge Ge Se Ge Se Ge Ge Se Se Ge Fe Ge Ge Ge FHS Ge Sees Se eee 
med ts ds es a 8 4 4 a — 4 4 a 4 = a 4 od a _ es — — 4 4 — _ 2 4 4 
MEW "OC OCOnNOUE WO 0@- 


Sab ontske 2 
Oo 
kk kk kk tk tt 2 


PAEAEAAAAAAAAAAAAAAASAAAAAAAAAAAAOAAAS 


END; | 
! End of routine DRAW_Y_AXIS 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


42 55 32 1 174 P.AAP ASCII \!2UB\ : 
1 178 P.AAO: .LONG 17694724 : 
* 0017 .ADDRESS P.AAP : 
00 4c 180 P.AAR: . ASCII \ UL \<03 : 
01 3 184 P.AAQ: .LONG 17694723 ; 
* 001 -ADDRESS P.AAR ; 


7 
| EDF SGRAPH EDFSGRAPH plotting module bese -1984 39:47 VAX-11 Bliss-32 V4.0-74 Page 44. 
R800 Draw y-axis for surface graph 30071382 99339585 DLSKSVMSHASTERSCEDE SRC SEDFGRF .832; 1 ’ (19) | 
| 
CTRSTR_DESC1= P.AAO | 
CTRSTR-DESC2= P.AAQ 
-PSECT S$CODE$,NOWRT,2 | 
O1FC 00000 DRAW_Y_AXIS: | 
.WORD Save R2,R3,R4,R5,R6,R7,RB 3; 1475) 
: 00006 9E 02 LIBSSIGNAL : 
9 0 v MOVAB MOVE _CURSOR_REGIS, R7 : | 
g ovooseay’ ee Se tarry = RBWAB DULUTEGSUAEE pal 
16 AE 2020208 §f Bb ¢ MOVL = 36288 BUFFER ; 1535, 
— AE Be 4 CLRW DESC+2 : 1537) 
10 AE 14 AF E 7 MOVAB BUFFER, DESC +4 ; 1538 | 
55 D C CLRL oR ; 1540 
08 Ac D3 E TSTL § GRAPH_TYPE : | 
3 1 BNEG 3=s«1$ F 
6 3 INCL = RS : 
54 00000000" Q 9 3 ROVAB CTRSTR.DESCT, CTRSTR_DESC + 1542. 
54 00000000° 9 9 : 1$: MOVAB CTRSTR_DESC2, CTRSTR_DESC ; 1566 | 
28 66 € 2$: BAC #2, DEVICE_FLAGS, 3$ ; 1549) 
£ 1 CE 00049 MNEGL #1. =(SP) : 1555 
“ 1 5 $33 Es “SP 7 
04 Ab DD 00051 PUSHL Y_AXIS_LINE ; 
43 D4 4 CLRL - : 
67 0 FB $ ALLS #5, MOVE CURSOR_REGIS ; | 
50 04 AC M2 C MULLS #18, GRAPH_LEN, R : 1560 
50 05 ¢0 E ADDL2 #5, X_AXIS-LINE : 
7E or ce 1 MNEGL #1. TSP) : 1561 
7E 1 CE 00064 MNEGL #1. =(SP) ; 
50 DD 00067 PUSHL X_AXIS_LINE ; 
¥ 1 $5 83882 Ble ye “SP : 
67 5 FB 6F CALLS #5, MOVE_CURSOR_REGIS ; 
53 0088 i } 3$: MNEGL # ROW_ COUNT : 1568 
OC AE 84 8F 10077 4$ MOVZBW Hise DESC : 157% 
08 A 1 As 9 7C 1(R35, ROW_POS : 157 
0 55 £ 1 BLBC. —_ «RS, : 157 
6E 04 AC 33 : 0 SUuBL3 ROW_COUNT, GRAPH_LEN, ROW_LABEL + 1579 
50 10 Ac C 5$: MULL3 ROW_COUNT, Y_INCR, RO : 1581 
6E oc AC ¢ SUBL3 RO, "Y_HIGH, ROW_LABEL ; 
OF E 6$ BLBS ; : 1588 
7E 99 1 7A 06 ERUL #1, ROW_COUNT, #0, -(SP) : 1 
50 BE 2 7 DIV a, (SPT+, RO, R : 
ip 4 seh OBS : | 
5E 0D fy} 7$: PUSHL_ SP > 1592 | 
10 AE OF PUSHAB DESC ; | 
14 At f PUSHAB DESC : 
DD PUSHL CTRSTR ESC F 
000000006 00 4 Fe CALLS #4, SYSSFAOL ; 
A 0 €£ BLBS §RTN_STATUS, 9% : 


3; Routine Size: 329 bytes, Routine Base: SCODE$S + 0527 


7 

EDF SGRAPH get Lotting module 18-5¢ -1984 39:47 VAX-11 Bliss-32 V4.0-7 Page 45. E 
1042000 Draw yronis for ourtece graph 1 ~3007 1388 99:39:86 DISKSVMSMASTER: cto £ Ske EDF GRF .832;1 = (19) | vO 

0 DD OO00BA PUSHL RTN_STATUS ; : 

68 } it BC CALLS #1, LIBSSIGNAL : ; 

1 BF RB 9 + 1588 : 

OC AE 84 000C1 8s LRW DESC + 1594 ; 

OE 2 é ca $ LBC » 10 + 1601 ; 

¢ TSTL ROW_COUNT : : 

A (9 NEG 1 ; : ; 

14 AE 2a20 BF CB MOVZ2WL #10784, BUFFER + 1604 : 

OC A : BO 00001 OV #2, DE + 1605 : 

2 4 A p 008 10$: MOVL  Y_AXIS_LINE, R2 + 1614 ; 

cs @ 09 MOVZWL DESC, R : 3 

31 : E op BBC #2, DEVICE_FLAGS, 11$ + 1611 ; 

1 ¢ £1 MULLS #9, RO, R + 1614 ; 

51 5 1 g 00E5 SUBL3. -R1. R2. RI : ; 

04 AE F7 Al SE 000E9 MOVAB -9(R1), COLUMN_POS ; F 

7E ot CE O0EE MNEGL #1, =(SP) + 1615 ; 

7E 1 ce OF1 MNEG -(SP) : ; 

51 10 AE 12 f O0F4 MULL “ig ROW POS, R1 : 1616 : 

EF OAL OOF 9 PUSHAB =17(81) ; ; 

10 AE DD OO0FC PUSHL  COLUMN_POS + 1615 ; 

7E 04 OOOFF CLRL. = = (SP) : : 

67 Q FB 00101 CALLS #5, MOVE_CURSOR_REGIS : : 

DD 00104 PUSHL #51 + 1618 : 

10 aE 9F 001 PUSHAB DESC : : 

00000000v 00 9 FB 1 9 CALLS #2, PUT_REGIS_TEXT : : 

—E 11 0011 BRB + 1611 : 

14 AE4O 7¢ 8F 9000112 118: MOVB #124, BUFFERCROJ : 1626 ; 

OC AE B6 011 INCW ; 1627 : 

51 OC AE : 0118 MOVZWL DESC, R1 + 1629 : 

51 52 51 g O11F SUBL3 2, R1 ; ; 

04 AE 01 Al 9E 001 : VAB_ 1(R1), COLUMN_POS ; : 

04 AE 9F 001 PUSHAB COLUMN_POS : 1630 3 

C AE 9F 00128 PUSHAB ; : 

14 AE 9F O012E PUSHAB best : : 

000000006 00 Q FB 0131 CALLS @# LIBSPUT T SCREEN ; ; 

5 0 €8 00138 BLBS § RTN_STAT ; ; 

50 0D 00138 PUSHL INS ; : 

68 01 FB 013D CALLS #1, LIBSSIGNAL ; : 

01 06 AC F 9140 12$:  AOBLSS GRAPH_LEN, ROW_COUNT, 13$ : 1568 : 

04 0014 RET > 1634 : 

FF2E 3100146 13$: BRW 4$ : 1568 3 

; 

| 

| ao 
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EDF SGRAPH EDFSGRAPH plotting module 16-Sep-1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Page 46 

+800 Label the Fmaxts Vor a surface graph 18 350- 1382 99:37:35 DT SKSVMMASTER-CEDE SRCSEDF GRE .832:1 : (20) | 
; 1361 1635 1 ZSBITL “Label the y-axis for a surface cor : 
3 } § 19 ! ROUTINE LABEL_Y_AXIS( Y_LABEL_DESC, GRAPH_LEN ) : NOVALUE = : 
3; 1 16 3 1 lee 3 
3 1 16 1! F 
3 : Ho : FUNCTIONAL DESCRIPTION: : 
° . | o 
3 1 + of ! Draw the y-axis and write the numeric Labels. : 
: | 164g 1 | FORMAL PARAMETERS: : 
3 1 HS 4] 1! Y_LABEL_DESC : Address of descriptor for descriptive labels 3 
3 : + od : GRAPH_LEN : The number of rows in the graph : 
3 1 1649 1 ! IMPLICIT INPUTS: 3 
3 7 1929 1! 3 
3 1 1651 1! Y_AXIS_LINE : column which contains the y-axis Line. 3 
3 1 1636 1! DEVICE_FLAGS : a bonguere of flags which are set or cleared by 3 
3 1 1655 1! LIBSSCREEN_INFO depending on the terminal 3 
3 1 1654 1! characteristics. : 
| 1655 1! 3 
3 1 1636 1 ! IMPLICIT OUTPUTS: 3 
3 1 1657 1! 3 
3 1 1658 1! None s 
3 3 1659 1! PF 
3 1 1660 1 ! ROUTINE VALUE: 3 
3 1 1661 1! 3 
3 1 1066 1! None 
3; 1389 1665 1! 
3; 1390 1664 1 ! COMPLETION CODES: 
a 
3 ' ne 
3; 139 1869 1! 
3 1394 1668 1 ! SIDE EFFECTS: 
3; 1395 1689 1! 
3: 1 38 1670 1! None 
3; 139 1671 1°! 
3 1398 1676 1 !e- 
3; 1399 1675 1 
3; 1400 1674 BEGIN 
3; 1401 1675 
3 1008 1978 LITERAL 
3 140 167 LABEL_WIDTH = 15 | 
3: 1404 1678 3 
Nabe 1860 5 LOCAL 
: 1209 1689 ROW POS ‘Row where Label is to be placed 
> 1408 1 ; COLOMN_Pos, iColumn in which the Label starts 
3; 1409 1 STRING_LEN ‘Length of repetning string 
3: 1410 1 STRING START, ‘Address of first character 
3 1611 1 CURRENT _LEN, ‘Length of reneining string 
: ere 1 oan Wh ‘Address of first character in word 
3 141 1 WORD_END, ‘address of last character in word 
3 1414 1 WORD_ COUNT, ‘Number of words in Label 
3 1415 1 DESC ; ‘Descriptor for output buffer 
: 1o16 16 BBLOCK C OSC$K_Z_BLN J 
; 141 1691 


7 
EDFSGRAPH plotting module 18- -1984 00:39: VAX-11 Bliss-32 V4.0-74 P 7 
Label the aoe 8 Yor @ surface graph 1 =30071 382 99:39:42 D1 SKSVMSMASTER = CEDE ERC SEDFGRF .B32:1 29° 363 
1698 
i a Y_LABEL_DESC : ‘Descriptor for y-axis labels 
1695 TREF"BBLOCK “ J 


H 7 

E APH DFSGRAPH plotting module 16-Sep-1984 00:39: VAX-11 Bliss-32 V 48 
sot abel the he yon 8 Yor a surface graph 12286871382 90:39:86 DL KSVMSMASTERSCED £ SRCSEDE GRE. B32;1 dae (21) | 
7 jsntetot tse variables | 


Dest DSC$B_CLASS = DSCSK_CLASS_ i: 
DSC$B~ =bTvPE : pat ee pret - 
RING LEN .Y_LABEL_DESCL-DSCSW°LENGTH J; | 
STRiNc LEN . «STRING CEN: 
STRING START = .Y_LABEC_DESCC DSCSA_POINTER J; 
v WORD_START = .STRING START; 
; 5 WORD “END 2 goTRING_START; 
=U; 


wm 


UNTIL ~CURRENT_LEN GTRU .STRING_LEN 
BEGIN 
1Find the start of the next word. 


word START = CHSFIND_NOT_CH( .CURRENT_LEN, .WORD_E "); 
CURRENT _LEN = .STRING-LEN™= ( .WORD_START - “STRING. NO TART ): 


IOC OO 


dd I IOO 


MEUM OO OONOU EWN" O O@BVNOUS WN "OC@ 


If .WORD_START EQL 0 
THEN 


: There are no more words in the string. Finish processing. 
EXITLOOP; 
‘Find the end of the next word. 


= CHSFIND_CH( sCynnest LEN, .WORD START, * °); 


worD 
CURRENT. _LEN = .STRING-LEN = ( .WORD_END - .STRING START ); 


BOL OL RADAR EE EERE EEE ACen eunony 


PAEAEXPAMMAMAMNAN NNN SEPP LEE EE 


; Count the number of words in the Label 


c 


Be Se Se Se Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Fe Se Se Ge Se Se Se Se Se Gs Se Ge Se SH Se Be Se Se Se Se Se SH Ss Se Ss Se Ge Se Se Se Se Se Se ee 


me a a a a a kk a a at a hk an ka ak a at ik tk at tk at at wt = 2 2 1 Ss 2 1 tS 


7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 
é ; 
4 7 ! IF (.,WORD_END - .WORD_START + 1) GTR LABEL_WIDTH 
: THEN 
r g , : iWord is too longer than the maximum width allowed (LABEL_WIDTH) 
: 444 ! SIGNAL( EDFS_INTSWERR, 1, INVALID_LABEL ); 
<8 rey 
$8 ae) ‘Count the new word. 
470 74 WORD_COUNT = .WORD_COUNT + 1; 
471 744 END; 
rh) 745 
47 ms 
474 74 : If .WORD_COUNT GTR (.GRAPH_LEN / 2) OR .WORD_COUNT EQL 0 
in neg; Ml | 
<7? g ? : : There are more words than Lines to write them on or there are none. 
cis 4 § : SIGNAL( EDFS_INTSWERR, 1, INVALID _LABEL ); 


7 
plotting module 1b-se -1984 00:39:47 VAK-11 Bliss-32 V4.0-74 P 49° 
proxies for a surface graph 1 355-1 98e 99:39:85 DLEKSUMSMASTERSCEDE SRCTEDE GRE .B32:1 208 (ai) | 

eye the label to the screen. peteraing in which row and column the 
first word of the Label is to be positioned. 

iF -DEVICE_FLAGSC SCRSV_REGIS J 

HEN 


COLUMN_POS = .Y_AXIS_LINE = ( LABEL_WIDTH © CHAR_WIDTH ) 
COLUMN_POS = .Y_AXIS_LINE = LABEL_WIDTH; 


ko 


ev 
$ 
ep 


aE 


ELSE 


if (.COLUMN_POS LSSU 1) 
COLUMN_POS = 1; 


LEASES Sener F 


j 
| 
ROW POS = (.GRAPH_LEN = .WORD COUNT) / 2; | 
IF ROT ((.ROW_POS"MOD 2) EQ 0) | 


FP et ol pl el el det ek et et et et et et et et et et 
QLLLSL S00 LERRRaRRRD 
MEW — iw ae aS Pe) 


HEN 
ROW_POS = .ROW_POS - 1; 


anv 2S 


o 


rExtract next word from string and print it in the proper place. 


CURRENT_LEN = .Y_LABEL_DESCC DSCS$W_LENGTH J; 
WORD_START = .STRING_START; 
D- = .STRING-START: 


SS 


0969 09 09 0908 INI NI SIN NOOO 


SSLESE 
MEW —O OONOUS WN OO 


DECR LOOP_INDEX FROM .WORD_COUNT TO 1 DO 
BEGIN 


ANN 


10 0D CD 
oc 


:Find the start cf the next word. 


WORD START = CHSFIND_NOT_CH( .CURRENT_LEN, .WORD END, ' '); 
CURRENT_LEN = .STRING-LEN@= ( .WORD START - .STRING_START ): 


FUPUPVIUSIUSVSIUSUSVS FUSS SII 


oe ee a 


8 ‘Write this part of the Label on the graph and decide where next 
H ;word should be written. 


me et ee a ea a a a a a at tk at ak a a 2 et 8“ = 2 1 ot 
a me a a i a tk at a at tt at at a = = = 2 ss eT 


Be Se Be Se Se Se Se Se Se Se Se Se Ge Se Ge Se Be Ge Se Se Ge Ge Se Ge Fe Se Ge Ge Se Ge Se Se Se Ge Se Fe Se Ge Se Ge Se Ge Ge Se Se Se Ge Se Se Ge Se Se Sees ee tee 


0 
4 
5 7 
: 7 
790 
i 791 
3 rs 1Find the end of the next word. 
1 79% WORD END = CHSFIND_CH( .CURRENT LEN, .WORD START, * "); 
3 ¢ 295 CURRENT_LEN = .STRING-LEN - ( .WORD_END - .STRING_START ); 
526 199 IF ,WORD_END EQL 0 
525 798 THEN 
; 6 7 WORD_END = .STRING_START + .Y_LABEL_DESCC DSCSA_POINTER J; 
1 
é :Adjust Output buffer descriptor to point to the current word. 
DESCE DSC$W_LENGTH J = .WORD_END - .WORD_START; 
; 5 DESCE DSCSA~POINTER } = .WORD-START; 
; 


$ 


or a surface graph 
if -DEVICE_FLAGSE SCRSV_REGIS J 
HEN 


NWN BPE SP 


RNNONOfoOn 3 oe 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Geese 
a a a ss ss ts 1s 4 4 
Sa? at at at tt ee et et et 

ANF W "OO ONOUNE 4 


WO OONOuns 


BEGIN 
MOVE _CURSOR_REGIS( 


WO_VACUE, 
Cus MESES TEAC DESC, LIGHT I 


S 
PUT_TEXT( DESC, ROW_POS, COLUMN_POS ); 


ROW_POS = .ROW_POS + 2; 
END; 


O3FC 00000 LABEL_Y_AXIS: 
. WORD 
00000000" 90 


AE 
AC 
4 


oo 


-=—MOrNON——rwomwan 


PPWAATIMIOR) = VIIUVIVIVMIONINIVIVIVIN BD UO 
WNP 


0 
6 
A 
0 


$ REGIS POS. . 
POS = 1) *# 


oO 
oO 
Oo 
o 


So 
4 


Sa Se 


COOooooooso 
COOOCoOooooooooooo 
OOCCCOCCOCOCooooO 

FPROVIWOS OOWwW 
as 
wn 


~™ 
bd 
oe 


Ww 
Lad 
ad 


f=) 43949 
i 


OO LOOl ON FO OVUM 


= 
tad 


SOooo 


> 
SOnrvorwoao— 
NOM rh OO $$ WO FV FW "WO FVD & — FOOCOCONOS 


—0=" OMS 29 ONO99 (WFD OO9T9 ww SVT TTT TOws 


BLASS 


ow 
PR 


1386 $9:37:85 | PecbuwSAAS FER cebE She Seorcre.e32;1"° 


Loop 
outine LABEL_Y_AXIS 


Save R2,R3,R4,R5,R6,R7,RB,RO 
VICE SFLAGS, Ro 


oe 
mrowm 


LEN 
CURRENT_LEN 
START 

ART, WORD START 


DO me Pew 


Y ENT_LEN, STRING_LEN 

32. CURRENT_LEN, (WORD_END) 
1 

1 


WORD. START 
WORD START, STRING START, RO 
RING_LEN, RO, CURRENT. LEN 

D_START 


i32, CURRENT_LEN, (WORD_START) 


Ri 

R1, WORD_END 
WORD END STRING START, RO 
STRING LEN, RO, CURRENT_LEN 
WORD_COUNT 

Y_AXIS LINE, RO 

#2, DEVICE FLAGS, 5$ 

Hr esthot COLUMN. POS 


=15(RO), COLUMN_POS 
7$ 


—w 
-o 


“a 


Saran LS 


i 
——— | 
i 


Se 
i pb be) 


—_ 
= 


Pee Se Ge Se Se Se Se Se Se Se Ge Se Sete Ge Se Se Ge Ge Se Se Ge Se Ge Se Ge Se Se Se Se Se Be Be Be 


ee _ —- 


3; Routine Size: 293 bytes, Routine Base: S$CODE$ + 0670 


Kk 7 
EDF SGRAPH EDFSGRAPH plotting module 16-Sep-1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Pa 51 E 
be 600 Label the y-axis lor a@ surface graph 1 730071382 99:39:85 DLSKSVMSMASTERSLEDE SRCTEDFGRF .832;1 9° 01) Vv 
6E D MOVL. #1, COLUMN_POS : 1767 : 
50 08 A ¢ p 7$: SUBL 3 WORD COUNT GRAPH_LEN, RO : 1395 | ; 
7 ” 06 04 Ht th h tM ; aag Bosse (SP) 9771 
f : BE EDIV #2. (SPT+, RO, RO ; : 
at | | : 
0% AF 8 9 DECL ROY POs ' 1773) : 
5 C 8$: MOVZWL (R4J, CURRENT_LEN + 177 ; 
D6 0008F MOVL STRING _START, WORD_START + 1779 ; 
6 D MOVL § STRING-START, WORD-END : 1780 ; 
ooge 4 INCL oo > 178 : 
66 55 8 O9A 9$: SKPC #32, CURRENT_LEN, (WORD_END) : 1788 ; 
1 9 BNEG 10S : ; 
D4 000A CLRL RT : ; 
57 1 09 OA2 10$:  MOVL 1, WORD START : ; 
50 7 C3 OO0A SUBL3 WORD START, STRING_START, RO + 1789 : 
: 8 ¢€1 000A9 ADDL STRING _LEN, RO, CURRENT_LEN : 3 
67 0 3A OOOAD LOCC #32, CORRENT_LEN, (WORD-START) > 1794 ; 
fied) ewe at : : 
5 51 09 0085 11$:  MOVL_ 1, WORD_END ; : 
50 36 C3 00088 SUBL3 WORD END? STRING START, RO + 1795 ; 
55 ‘ C1 000BC ADDL3 STRING LEN, RO, CURRENT_LEN F ; 
56 DS 90¢0 TSTL  WORD_END + 1797 ; 
05 12 000¢ BNEQ 12$ ; ; 
56 52 04 Ad C1 000C4 ADDL3 4(R4), STRING START, WORD_END + 1799 ; 
08 AE 56 57 A3 000C9 128: SUBW3 WORD_START, WORD_END, DESC 1804 ; 
oc A 57 00 O0CE MOVL WORDSTART. DESC?4 . 1805 ; 
" BF tele, Bf SRREGECAGS, 138 aa] 
7E or CE 000D MNEGL #1. -(SP) : ; 
50 oc A 1 ¢€3 0000¢ SUBL3 #1. ROW_POS, RO + 1815 ; 
7E 5 12 ¢€5 000E1 MULLS #18, RO? -(SP) ; ; 
ca 8 how ot! 
00000000v 00 a5 FB OOOEA CALLS #5, MOVE_CURSOR_REGIS ; 3 
oc PH Fibs ele fw) i 
00000000v 00 05 re OF6 CALLS 9 PUT_REGIS_TEXT ; 3 
1B 11 OOOFD BRB 14§ ; 1811 : 
SE DD OOOFF 13$:  PUSHL SP + 1821 ; 
98 OME OF 00104 PUSHAR Dest ' 
000000006 00 5 Fe 107 CALLS #3, LIBSPUT_ SCREEN : : 
: Bee gm ayanug | : 
000000906 00 ®. o113 CALLS #1, LIBSSIGNAL ; ; 
4 AE : CO OO11A 14$: ADDL2 #2. ROW POS > 1824 ; 
0 : OliE 15$:  SOBGTR LOOP_INDEX, 16$ > 1783 F 
94 1 RET : 18 $ ; 
FF7S5 31 00122 168: BRW 9$ : 1 ; 


7 
SGRAPH plotting module 18-56 “1984 00:39:47 VAX-11 Bliss-32 V4.0-74 Pp 2 
te a port on of a graph 1 736871382 99:39:88 DLSKSVMSHASTERSCEDE SRC SEDFGRF .832:1 a9 335 


a 


em 
sco 
—s 


| 

: 1555 1 1 ZSBTTL ‘Write a pert ion of a graeh 

3 1 $ 1 1 ROUTINE PUT_ROW_SEGMENT( CURRENT_VALUE, REPEAT COUNT COLUMN _POS, 

71 1 1 OW SEPARATOR CHAR, DIM1, 

: 4 33 \ 9 | SHADE _ARRAY_DESC ) : NOVALUE = 

31 1 : 1 144 

; 1561 1 1! 

H ' $6 { ¢ } FUNCTIONAL DESCRIPTION: 

3; 1564 1 § 1} PUT_ROW_ SEGMENT places a requested number of repetions of the current 

3; 1565 1 1} value in a buffer and put the buffer to the terminal in the proper 

3 3 $6 1 1! place. 

3; 156 1 1! 

3 ; re : rk : FORMAL PARAMETERS: 

3 1 8 1 ri} 1! CURRENT_VALUE : Current value to be printed in the row segment 

; 1571 1843 1! REPEAT_COUNT : Number of times the value is to be printe 

3 1 Lf 1844 1! COLUMN_POS : Column in which row segment starts 

3; 157 130? 1! ROW_PO : Row in which row segment is to be written 

3 1308 1 ° 1! SEPARATOR_CHAR : Character used to delimit ‘‘good’’ section 

3 1575 1847 1! : Index into SHADE ARRAY 

3 1278 1368 : } SHADE_ARRAY_DESC: Descriptor for the array of shading information 

3; 1578 1850 1 ! IMPLICIT INPUTS: 

3 1222 1851 1! 

3; 1580 1936 1! DEVICE_FLAGS : a Longuere of flags which are set or cleared by 

3; 1581 1855 1! LIBSSCREEN_INFO depending on the terminal 

3 1386 1854 1! characteristics. 

3 138 1855 1! 

3; 1584 1328 1 ! IMPLICIT OUTPUTS: 

3; 1585 1857 1! 

3; 1586 1938 1! None 

3: 1587 1859 1! 

3; 1588 1860 1 ! ROUTINE VALUE: 

; 1283 1861 1! 

; 1590 1366 1! None 

3; 1591 1865 1! 

: 1236 1864 1 ! COMPLETION CODES: 

3 133 1865 1! 

3 1594 1306 1! None 

1886 1868 | i SIDE EFFECTS 

PPT Bee ae. | 

3 ! utput to the terminal. 

1399 ae 4 | 

3; 1600 1872 1 !-- 

1803 187% 2 BEGIN 

3 1808 1875 

> 1604 1876 2 LITERAL | 

3 Hb ' TWO_DIGITS = 10 'First two digit number 

; 1809 187 | 

; 1on8 1 rs} LOCAL 

: 1 1881 SHADE_ARRAY : ‘Array containing shading values 

3 1610 1886 REF TWO_DIM_ARRAYC LONG, UNSIGNED J, —_ 

3; 1611 1 BUFFER 3 ‘Buffer for building the output | 
| 


rte by if: sep-1964 99:37te I cdlwGhagfencce 
VECTORC MAX PAGE WIDTH, BYTE ) 
DESC ‘Descriptor for BUFFER 


BOLOEKE DSC$K_2 “BLN ‘4 
REGION_FOUND : & 'Flag -- set if we need to delimit "good" area 


IND 
CTRSTR_DESC = ZASCID*!2uUB" 


a at i 
POAAAOSCOOAO 


Pe ee ee ee et et at et 
COOONOUS wT 


4,0-74 tg 
cor. SRC JEDF GRE .832;1 


Page 433 


=<m 
mao 


| 
nN 7 

- - co = e = Page 4 
FSGRAPH plotting module 16-Sep-1984 00:39:47 VAX-11 Bliss 32 V4.0-74 | 
he fh Grits a portion of a graph 127808=1382 99:34 Hf NT EKSUMGHASTERSLEDE SRCTEDFGRF .832:1 ra 
3 1 ¢ } $s tinititalize variables 

. ; | 
> 1626 1 (BUFFER) =! '. | 
; $B_CLASS = DSCSK_CLASS_2; 
Tee Te ariel 1: Were 
: 48 1899 pESee Det sunceHeTaY ye SEPARATOR WIDTH; | 
> 16 ; iat REGION_F OUND = FALSE; 

3; 16 

; 1631 190 

; ‘If this is an invalid value, then use blanks to fill the row segment. 

; ig i 1306 Otherwise. translate the value into ASCII. 

; ig a 1906 if .CURRENT_VALUE LEQ 0 

; ig 1308 (BUFFER) = * ° 

; 16 

: ATE_VALUE( CTRSTR_DESC, DESCC DSCSW_LENGTH J, DESC, 

; 1639 4 1319 seeaianits< ted CURRENT_VALUE ); 

> 1641 1918 

; 164 191 ape abet 

: : t of this row segement is also the start of a ‘good’ section, 

; 1ee$ 1915 ithen flag it 44 that the end of the ‘‘good'’ section can be looked for. 

; 1803 1917 if .SEPARATOR_CHAR NEQ NULL 

; 1803 a CURRENT AS LSS TWO_DIGITS 

: 1885 13 1 SHADE _ARRAYC.DIM1, .COLUMN_POS, .SHADE_ARRAY_DESC] 

> 1651 19¢@ went (CIGHT_INTENSITY - ‘O'S 

; 1828 13 : REGION_FOUND = TRUE; 

3 1654 

: 1e33 1997 ‘For each repition of the value: 

; 162% 136) iNCR LOOP_COUNT FROM 1 TO (.REPEAT_COUNT = 1) 

1886 1931 PO BEGIN 

: 1862 1938 ; Copy the ASCII value into the next available position in the buffer. 

: t FFER, | 
: 1668 1986 saints tBUPFER eC Looe e ‘if * SEPARATOR WIDTHD)); ni | 
; 1686 1987 DESCCK DSCSW_LENGTH ] = .DESCE DSC$W_LENGTH J + SEPARATOR_WIDTH; | 
: | 
: 1869 1940 ‘If the end of the ‘‘good’’ area is encountered, put in a delimiter. | 
: 1e71 1948 if .REGION_FOUND | 
: 38 RAY_DESC) 

; ~SHADE_ARRAYC.DIM1, (.COLUMN_POS + .LOOP_COUNT), .SHADE_ARRAY_ | 
2 a se 
3; 1675 | 
1 sae 1 Paget pliant 

+ 1678 1949 4 REGION_FOUND = FALSE: 


.PSECT $PLITS,NOWRT,NOEXE ,2 | 

42 55 32 21 OO18C P.AAT: ASCII \!2UB\ : | 
100064 09196 PIAAS: ZCONG. 17694724 : | 

194 SADDRESS P.AAT : | 

CTRSTR_DESC= P.AAS 
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be-600 Write a portion of a graph 1 ~3007 1383 9933986 DLSKSVMGHASTERSCEDE SRCTEDFGRF .832:1 ns (233 

: 1679 1950 END; 3 
3; 1680 1 PF 
3; 1681 1 END; $ 
: 1889 198% | ; 
: 1884 12 5 'If this is the beginning or the end of the ‘‘good’’ area of the graph ; 
3; 1685 1 2§ ‘place a visual separator in the front of the buffer. If separator is ; 
3 16 195 ‘more than one byte in pOngem this won't work == it only moves one 3 
3 et 1328 i byte into the buffer at the speci ‘ed position. : 
; 1689 1960 if .SEPARATOR CHAR NEQ NULL 3 
; 1631 1986 ; .CURRENT_VALUE LSS TWO_DIGITS 3 
; 1898 1964 (, SHADE _ARRAYC.DIM1 «COLUMN. POS, . SHADE _ARRAY_DESC) ; 
: 169% 1965 EQL (LIGHT INTENSITY = *0") ; 
; 1696 1963 ~SHADE_ARRAYC.DIM1, ..COLUMN_POS - 1, .SHADE_ARRAY_DESC] ; 
: 1697 1968 pent (CIGHT_INTENSITY = '0')) 
: 1699 1970 BUFFERC 0 ] = .SEPARATOR_CHAR; ; 
: thon 1973 
: 1708 1393 ‘If the end of the ‘“‘good'’ region has not been encountered, then assume ; 
3 Ay 19re : the region ends with the row segment. Put the separator at the end. : 
: 1705 19% if .REGION_FOUND : 
foe 1978 ony 
: 1708 1979 BUFFERC .DESCCDSCSU, LENGTH] = ,SEPARATOR_CHAR; : 
> 1709 1980 DESCE DSC$W_LENGTH J = .DESCE DSCS$W_LENGTHJ + 1; F 
3; 1710 1981 END; é 
Ok : 
: 1718 1988 :Put the buffer out to the terminal. : 
; 1715 1986 IF «DEVICE FLAGSC SCRSV_REGIS J 3 
: 1719 1988 PUT_REGIS_TEXT( DESC, BACKGROUND_INTENSITY ) ; 
2) ae ie a 
> 1720 1991 COLUMN_POS = (.COLUMN_POS + 1) * SEPARATOR_WIDTH + .Y_AXIS_LINE: | ; 
3; 1721 1336 PUT_TERT( DESC, ROW_POS, COLUMN_POS ); : 
We 18 - hits 
> 1726 1995 RETURN; ; 
3; 1725 1996 END; ! End of rcutine PUT_ROW SEGMENT : 
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E 
Vv 


.PSECT S$CODES,NOWRT,2 
T_ROW_ SEGMENT: 
O0FC 00000 PUT_ROW, SEGHE 


° R5,R6,R7 


»R3,R4 
AL 


Save R2 i : 
57 000000006 00 9€ MOVAB LI $S1GN R? ; 
i Hi F DO v 8976268. BUFFER : 1895 ; 
04 AE 20202020 F 00 i ROL a ; : 1893 
me Re es bone We) 
5 1D CLRB ' ; 1900 
04 ac > 90018 iste ae VALUE ; 
08 AE 2020 BF 3¢ é ROY ZL 48224, BUFFER 1908 ; 
4 OM OOF C 1$ PUSHAB CURRENT_VALUE ; 1911 ; 
b4 AE F f PUSHAB DESC ; 
08 ar oF é PUSHAB DESC 2 
rocco AP Fe 888i HEME SLA are, : : 
aan a 2) ees Me ee 
? 81 FB 0006 CALLS #1,7L1BSS1GNAL aes 
iH 14 AC 00 D006A 2$ mOvL SEPARATOR, CHAR, R4 | 
dé 0 r’ | . 
0005 TSTL «= RG : 
7 ae Pages: 
OA 04 ae BY 00086 CMPL CURRENT _VALUE, #10 ; ie 
0 1c Ae OD tie MOVL HADE_ARRAY_DESC, DESC_ADR_LCL ; 1921) ; 
51 18 ae 18 Ad C5 0006 MULLS 26 Dest ADRILCL), DIMI, RI ; ; 
33 86 Boel b d006A CMPL 4(DESC_ADA_LCL)ERII, #3 ; 1922 
+ 96 ¢ $ 1926 
71 MOVB #1, REGION_FOUND : ; 
- i 26 a9 3$: CLRL 00P_COUNT ; 1929 
: . 
08 AE42 08 i 3 0007 4$: nOvY. BUFFER, BUFFERCLOOP_COUNT3 ; 1338 
g 3 194 
; 1¢ D0 900 ROVL SHADE ARRAY” GES DESC _ADR_LCL ; 1944 
33 in 53 be A cS ADOC EOLURN_POS, “LOOP COUNT, R ; | 
ot 04 B02) b 36 em 94 (DESC_ADR_LCL)CR1I, #3 > 1945 
OA Fee 
RO ; 
06 age 5 \ A Rove Ri, Gur ER-2(R0} Fees 
cc 3 08 ie 3 ht 5$: AOBLSS REPEAT “COUNT, LOOP_COUNT, 4$ ; 1929 
i 04 ac i Ni CHPL CURRENT VALUE , #10 ; 1962 
V HADE_ARRAY_DESC, DESC_ADR_LCL > 1964 
51 18 at 16 A op 3 MULLS 4(DESC_ADRTLCL). DInT? R1 ; 
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| 
1 cf «er B ADDL2 COLUMN ; 
3 gf 204] cS MP a4 (DEST_ att" CL)CR1), #3 + 1965. 
1 ¢ ore Sate teusce13, Same 
50 1¢ aC D CA v SHADE ARRAY DESC, DESC_ADR_LCL + 1967. 
51 18 «AC 18 AO C ¢ MULL 4(DESC_ADRILCL), DIMI, R1~ : 
1 o¢ at ¢ D ADDL COLUMN ; 
9 4 8041 0D D8 a4(D Dest ADR LCL)CR1], RO : | 
FC Ad : Dp cHPL ger ie ; 1968 
08 AE Bs 9 FS $$ MOVB 4, BUFFER + 1970 
A 5 7 7$ BLBC §_ REGION_FOUND, 8$ : 197 
: gE f A MOVZWL DESC : 197 
08 aes ED MOVB . R4, BUFFERCROJ : 
86 F INCW $c + 1980 
: # V FLAGS, $ 
0D 00000000" 00 F F4 8$ BBC DEVICE_FLAGS, 9$ 986 
BD FC PUSHL #48 : 1988 
04 AE F OOOF PUSHAB DESC ; 
00000000v 00 0 FB at CALLS #2, PUT_REGIS_TEXT ; 
9 00000006" Ro A tr sf By g tot 
oc AC 0 A140 e 114 YoANISEL INE EOL UMN. POS : 
¢ AC 9F OO11A PUSHAB COLUMN POS + 1992 
AE SF Bh BURMA ufos : 
000000006 00 03 Fe 001 : CALLS ne LIBSPUT_SCREEN : 
g 0 £8 O012A BLBS §RTN_STATUS, ~10$ ; 
50 DD 00120 PUSHL RTNTSTATUS ; 
67 01 FB 01 F CALLS #1, LIBSSIGNAL ; 
04 00132 108: RET + 1996 


3; Routine Size: 307 bytes, Routine Base: S$CODE$ + 0795 
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04 Position the curser on a given pixel address 1 at 9033986 DLSKSVMSHASTERSLEDE SRC SEDFGRF .832:1 . (24) | 
3: 1727 1997 1 ZSBITL ‘Position the cursor on a given pixel address’ | : 
3 3 1 3 1 ROUTINE MOVE CURSOR_REGIS (COMMAND_TYPE, X_POS, Y_POS, INTENSITY, SHADE_LINE) H 
Bt 1999 1 : NOVALUE = | 
: 1731 1 1 !+ ; 
3 17 ¢ § 1! 3 
» a7 1 ! FUNCTIONAL DESCRIPTION: $ 
site Bi Eicdi 
: 17 4 ,} MOVE _CURSOR_REGIS builds REGIS commands to move the cursor to a : 
3 17 007 1! specified position, draw a vector from the corrent postion to a 3 
3 17 : Boe 1! another postion, or draw a vector with shading to a relative Line. $ 
: 604 B98 : } Send the command to the terminal. ; 
: 1741 011 1! >>>NOTE: all pixel addresses are absolute, except the Line to be : 
: 1706 ois ’ shaded which is relative to the current postion. : 
: 1244 O14 i FORMAL PARAMETERS: : 
: 1766 Og 1 COMMAND_TYPE : code to indicate if a postion or vector command is : 
3: 1747 01 . | a built 3 
3; 1748 018 1! X_POS : x-value address of pixel : 
3: 1749 019 1! Y_ POS : ey | address of pixel $ 
: 1750 oso 1! INTENSITY : intensity of the shaded area $ 
3 1731 . 1 : SHADE_LINE : relative pixel address of the shade Line : 
; 1738 3 5 ! IMPLICIT INPUTS: : 
WBE BRT tone : 
: 1287 O27 1 j IMPLICIT OUTPUTS: 
; He : $ : ! None : 
i 1761 O31 1 | ROUTINE VALUE: : 
; 1768 o 5 ! None F 
1265 035 1 | COMPLETION CODES: : 
1767 Be i _— 
; 1769 039 ' SIDE EFFECTS: : 
i 1771 bet 1 None | : 
Bi yy : 
; 1746 ; BEGIN ; 
: 177 BIND 
; 1778 8 POS CMD_START = UPLIT( ‘PC* ), ‘Command to move cursor 
3 1779 9 COMMAND-MID = UPLIT( '," ), 'X and Y value separator 
3; 17 50 COMMAND END = UPLIT( *§* ) ; Command terminator 
: 178 51 VCTR_CMD_ START = UPLIT( wcwcd3) 9c .  'Nector command start 
3 1786 03g SHADE _CMD_1 = UPLIT( yy ($1 ; g’de ‘First part of shade command 
3 7 SHADE_CMD_2 = UPLIT( *J 13))CIC+* ) ‘Remainder of command start 


———— eee --y 
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3; 17 4 3 3 
: i! 5 5 : 
3; 17 5 LITERAL 3 
3; 17 3 POS_CMD_START_LEN = ZCHARCOUNT( vce ve H 
3; 17 CMD_MID_LEN = ZCHARCOUNT( ° ), | F 
: 17 60 CMD-END-LEN = XCHARCOUNT( '4" ) | ; 
; 1791 : TR_CMB_START_LEN = ZXCHARCOUNT ( v(wCE3)oL a ‘ 
3; 179 ¢ SHADE_CMB_1_LER = ZCHARCOUNT ( ¥% ($1 ? ' ), : 
3; 179 06 SHADE CMD_2_ LEN = Brnancounrs *) 13))CIC+* ), 3 
3 1 We INTENSITY_LOC = ‘Distance to intensity indicator from end : 
: 18 ose 
; 1798 $68 LOCAL 3 
3 1799 5 3 TEMP_DESC : 'Record temporary changes in buffer here : 
3; 1 070 BBLOCKC DSC$K_2_ BLN J 3 
3; 1801 4 INITIAL ( 0, OF, : 
. 4 Lf FER 3 ‘Buffer to build REGIS command F 
3 180 07 VECTORE MAX_PAGE_WIDTH, BYTE J, ; 
; 1804 074 3 !Descriptor for the buffer 3 
3 Ht 075 BBLOCKC DSC$K_Z2_BLN J 3 
bo? O79 , 
3; 1808 078 BIND ‘ 
3 1809 079 CTRSTR = ZASCID ‘!UL" ; 
; 1810 080 : : 


ee —-—4 
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> 181 1 

$ : 1§ § jinitialize descriptor 

: 1815 4 DESCC DSCSB_ CLASS = DSCSK_CL LASS_2; 

31 16 5 DESCE DSC$B-D = DSCSK-DTYPE—Z; 

; | 18 $ DESCE DSCSA~ DOINTER J = BUFFER: 
: 181 

3 ! 89 ‘Place start of command string in buffer 

:4 é 091 SELECTONE .COMMAND_TYPE OF | 
.| ness a 

: \3 5 094 :Positon cursor 

: 18 5 9 { GRFS_REGIS_POS J : 

: 18 8 09 BEGIN 

: 1829 098 CHSMOVE( POS_CMD_START Tt LEN, POS cmp START BUFFER); 

3 18 099 DESCC DSC$W_CENGTH ] ="POS_CMD_START_LEN; 

eee a 

: 1838 196 1Draw vector 

: i 104 t GRFS REGIS_VCTR ): 

: 183 106 CRSMOVE ( VCTR_CMD_START_LEN, VCTR_CMD START. BUFFER); 

3: 1838 107 DESCC DSC$W_LENGTA J] = VCTR_CMD_START_L 

<r e 
; 41 110 ‘Draw a shaded vector | 
: 1848 11g C GRF$_REGIS_SHADE J : | 
> 1845 114 CHSMOVE( SHADE _CMD_1_LEN, SHADE_CMD_1, BUFFER) ; 

: 1846 115 DESCE DSC$W_LERGTH"J~= SHADE_CMO_1_CEN 

: 1848 9 

3 HS 4 118 iTranslate shade Line address into ASCII and place in command. 

: 1851 120 TEMP. DESCE DSCSW_ LENGTH j= MAX PAGE_WIDTH ~ -DESCC DSC$W_LENGTH J; 

: 185¢ 121 TEMP-DESCL DSCSA~ POIN TER 

: 185 1 é C DSCSA POINTER -DESCL DSCSW LENGTH | }; 

; 1854 Pp : TRANSLATE awa TenP. DESC pscsu. LENGTH J, TEMP_DESC 

; 1386 125 DESCE DSC$W_LENGTH 
: 1337 i $ “DESCE DSC$W_LENGTH } + .TEMP_DESCC DSC$W_LENGTH ); 

: 1859 128 

: 1800 129 CHSMOVE ( SHADE E EMD 2 LEN SHADE eco 

; 1861 130 BUFF ESC OsC$w_LEN ); 

: i ¢ i DESCL DSC$W FTENGTA = .DESCCDSC Lat & H } + SHADE_CMD_2_LEN; 

: 1 1 

3 i ' ¢ :Place desired intensity in command string. 

: 1867 1 6 BUF FERC -DESCE DSC$W¥_LENGTH J - INTENSITY_LOC } = 
+4 1 INTENSITY; 
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3 , 6 } _ END; 
5 18 14 | 
3 } i 12 iif there is an x value, translate it and put it in the command string. 
; a 146 IF ,X.POS NEQ NO_VALUE 

; 7 146 BEGIN 
; 1 i 138 T ~PEsct DSCSW_LENGTH J. = MAX_PAGE_WIDTH = .DESCC DSCSW_LENGTH J; 

3 1 14 TEMP_DESC da) INTER ? = 

3 1 150 -DESCE DSCSA_POINTER } + eset DSCSW op a3 

3 1 § 151 TRANSLATE _VALUE( CTRSTR, TEMP_DESC DSC$W_LENGTH - TEMP_DESC, X_POS ); 

3 1 1 § DESCE oSCSw Lprere ] = 

3 1 1 DESC DSCSW_LENGTH ) + .TEMP_DESCC DSC$W_LENGTH J; 

3; 1885 154 END; 

3 1887 : 5 

: 1 1 5 ‘Put comma in to separate x and y values. If separator is more than one 

3 4 138 ibyte this will not work!!! 

; 189% 190 BUFF RC .DESCCE DSCSW_LENGTH ] J] = .COMMAND_MID; 

; 4 189 DESCE DSC$W_LENGTH J = .DESCC DSC$W_LENGTH J] + CMD_MID_LEN; 

3 1894 16 

3 1898 1e¢ ‘If there is a y value, translate it and put it in the command string. 

: 189 1 iF .¥_POS NEQ NO_VALUE 

3 Hi 183 THEN ~ am 

et: oni 

; 1901 170 TEMP _DESCE DSC$W_LENGTH ]_ = MAX_PAGE_WIDTH = .DESCC DSCS$W_LENGTH J; 

3 1336 171 TEMP_DESC oaeA POINTER ] = 

3; 190 176 -DESCE DSCSA POINTER J] + speset DSCS$W_LENGTH J; 

3 1904 17 TRANSLATE _VALUE( CTRSTR, TEMP_DESCE DSC$W_LENGTH J, TEMP_DESC, Y_POS ); 

3; 1905 174 DESCE DSCSw bpvere = 

3 1308 175 -DESC DSCSW_LENGTH ] + .TEMP_DESCC DSCSW_LENGTH J; 

3; 190 176 END; 

: 1309 i 

: 1910 179 ‘Finish command string. 

; 1918 181 BUFFERC .DESCC DSC$W_LENGTH ) ) = .COMMAND_END; 

3 1913 i ¢ DESCE DSCSW_LENGTH J = iDESCC DSC$W_LENGTH ) + CMD_END_LEN; 

; 
3; 1915 1 

3 bay | ; 5 ‘Write the command string. 

> 191 1 PUT_REGIS( DESC ); 

RR ; | 
: Hh 190 RETURN; | 
; 19 5 192 1 END; ! End of routine MOVE_CURSOR_REGIS | 


<= 


Be Be Be Be Se Se Be Se Se Oe Se Se Ge Se Fe Se Se Se Se Se Ge Fe Se Se Se SH Ge Se Ge Se Ge Se Ge Se Se See ee Se Ge Se Se Se ee Se Se Se eeee Se Se Se Se Se ee seas 
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«PSECT SPLITS,NOWRT ,NOEXE ,2 


0 196 P.AAU: .ASCII \PE\<0><0> 3 3 

C 19C P.AAV: .ASCII \,\<0><0><0> 3 : 

D OO1A0 P.AAW: “ASCII \4\<0><0><0> : ; 

B 5D 8 3 9 4 : 1A4 P.AAX: .ASCII \W(W(13)CIL\<0> : ; 
B 1 : 7 1B0 P.AAY: . ASCII \y Cu ($1 ; \<0> ; : 
8 58 5D 58 49 D 18¢ P.AAZ: .ASCII \) 13))CIT+<<0><0> : ; 
. “or 0053, 1eC PIABAL LONG. 17804993 

80000000" 00100 -ADDRESS P.ABB ; i 

POS_CMD_START= P.AAU : 

CORN <pibe P. AAV 3 

COMMAND P. AAW : 

VCTR tao START= P. AAX : 

SHADE_CMD_1= P.AAY : 

SHADES CMD-2= P.AAZ : 

STR= P. ABA ; 


-PSECT SCODES,NOWRT,2 
O1FC 00000 MOVE _CURSOR REGIS: 
WORD 


Save R2.R3,R4,R5,.R6,R7.RB : 
8 990000006 0 9E 0000 MOVAB SYSSFAOL, RB F 
00000006 9E 000 LIBSSIGNAL , R? ; 
6 00000000' 00 9E 0019 MOVAB CTRSTR Ro ; 
E FF6C CE 9 001 V =148(SP) : 
FB AD 7C OOOIC CLRQ. —- TEMP DES 8 > 2045 
AE Bs OO1F CLRW ©—dDESCF : 2085 
04 A AE 00 3 MOVAB BUFFER, DESC+4 + 2086 
5 4 AC 00 000 MOVL § COMMAND_TYPE, RO 3 2091 
OA 12 00028 BNEQ 3=s«1$ 3 2096 
08 A€ cc Ag BO 000 MOVW § POS_CMD_START, BUFFER : 2098 
6E 80 + MOVW #2, DEST 3; 2099 
t 11 000 BRB ; 2091 
01 p} 037 1$ CMPL RO, #1 + 2104 
O3A BNEQ : 
08 AE D8 Ab 28 000 MOVC3 #2. VCTR_CMD_START, BUFFER : 21 
6€ BO 00 MOVW #12. DESC > 210 
1 BRB 3: 2091 
p 2$ CMPL =s RO, «#2 : 2112 
A BNEQ ; 
2 MOVCS #11, SHADE.CMD_1, BUFFER + 2114 
8 mMOVW = #11 + 2115 
h SUBW3 DESC, #132, TEMP_DESC : 120 
3¢ MOVZ2WL DESC > él 
E MOVAB aDESC+4(ROJ, TEMP_DESC+4 : 
: PUS SHADE_LINE : 2124 | 
F ; | 
i tag 
4 Py | 
dD 3 


; Routine Size: 293 bytes, 
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osition t 

7 

08 AE4O FO : 
01 “ 

FFFFFFFF 8F 

FB AD 0084 44 
FC AD 

6 

O8 

67 
08 AE4O 

FFFFFFFF 8F 

FB AD 0084 er 
0 

FC AD 

6 

8 

i 

08 AE4O 


000000006 60 


67 


2193 1 


> nOMnNSOOOOUW? oOo 


FOC OWVOOOP CWI ODS MB MMOWW— OWT OWI VM NAMO 


wre 
Pom 


Routine Base: S$CODES + 08C8 


=n OM Ore 


32, TEMP_DESC 
ROJ, TEMP_DESC+4 


Qooex-- 9 B20 


=2VRVAax 
—343 Om 
.! 

—< of 


§ 
COMMAND _MID, BUFFERCROJ 
DESC 

A #132, TEMP_DESC 
tettno3, TEMP_DESC +4 


#1, LIBSSIGNAL 

TEP DESC. DESC 

COMMAND _END, BUFFERCROJ 
DESC 


SP 
Hi, 
RTN_ 
RTN- 
#1, 


iesryt yreur 
TATUS, 9 
TATU 
IBSSIGNAL 


L 
$s 
$s 
L 


<7 
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et ut REGIS text tovthe terminal 19-808=} 382 90:39:80 PEK SUMGMASTER EDF Sac SEDFGRF .832;1 ae 38) V 
3 1 1 1 ZSBTTL ‘Put REGIS text to the terminal’ $ 
: } : } ROUTINE PUT_REGIS_TEXT ( DESC, INTENSITY ) : NOVALUE = : 
:1 19 1 {46 ; 
3 19 1 3 1! 3 
: 13 : : FUNCTIONAL DESCRIPTION: 13 
: 19 1 i Build a REGIS text command and put it out. This procedure assumes the ; 
3 13 : § ! cursor is already at the desired position. : 
i 19 4 1 | FORMAL PARAMETERS: ; 
: 13 ii DESC : address of devce'tptor for test string to be put out ; 
3 137 ; : INTENSITY : intensity at which text is to be written : 
; 1943 03 IMPLICIT INPUTS: ; 
> 194 11: None ; 
3 19446 \§ 1! 3 
i: 1948 13 1 { ImPLiciT outputs: ; 
; 1907 15 1! None : 
3; 1948 1 1! 3 
3 1949 17 1 =! ROUTINE VALUE: F 
3; 1950 1 1! 3 
: 1951 1 1! None 3 
3 1926 01! $ 
3; 195 1 1 =! COMPLETION CODES: 3 
3 1954 ; 1! 3 
3; 1955 1! None 3 
3 1328 41! 3 
3; 195 5 1 ! SIDE EFFECTS: é 
3; 1958 8 1! 3 
3; 1959 1! None 3 
t 130) Si i 
; 1968 0 1- ; 
3 1307 1 BEGIN : 
> 1965 § ; 
‘ Hb r DESC : REF BBLOCK 'Descriptor for text to be output : 
:1 ’ ; 
. bt ate 1 
3; 1970 5 COMMAND _START = UPLIT( ZSTRING( ‘TC wii)?" ZCHAR(39) )), 3 
; 13f3 33 COMMAND-END = UPLIT( ZSTRING( %CHAR(39)) j ; 
: 197 41 : ; 
3 1974 ri} LITERAL 3 
3; 1975 4 CMD_START_LEN = ZCHARCOUNT( ZSTRING( ‘T( wtis)}* ZCHAR(39) )), 3 
3 1976 44 CMD-END_LEN = XCHARCOUNT( ZSTRING (ZCHAR(39)) j, 3 
é 137 $7 INTENSITY_LOC = 4 , 
; 1379 ‘F Fell 
> 1981 rt CMD_BUFFER : ‘Buffer to build REGIS command : 
3; 1982 50 VECTOREC MAX_PAGE_WIDTH, BYTE J, é 
| 


VOu=000" UE AEGIS Pert tothe terminal ise Sep-1986 12:21:35 | DISKSUMSMASTERsCEDF. SRCSEDFGRF .832;1" °° (26) 


4 He He BP : “Bee ocKe DSCSK_Z_BLN J Descriptor for the buffer 


3 3 
3 1 


™~ 


wr © 


ee - _ —---4 
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Ree 600 ut REGIS text tothe terminal 12-8887 1 388 99:37: 5 DLSKSVMGMASTERSLEDE SRCSEDFGRF .832;1 age 39) 


: 1388 5 tInitialize. 

; 1990 $ CMD_DESCE DSCSB_CLASS ee DSCSK_CLASS_Z; 

; 1 8 CMD_DESCL DSCSB_DTYPE = DSCSK_DTYPE_2; 

: 1338 69 CMD_DESCL DSCSA_POINTER ] = CMD_BOFFER; 

3] | 
: 1998 e ‘Build start of command string. 

; 1999 64 CHSMOVE (CMD START LEN, COMMAND_START, CMD_BUFFER ); 

; 1998 65 CMD _DESCC pst W_LENGTH J] = CMD-START_LEN; 

: +4 4 CMD-BUFFERC .CMD_DESCCOSCSW_LENGTH] -"INTENSITY_LOC J] = . INTENSITY; 

; 2001 6 

: OO8 e3 | Copy text to be written into command buffer. 

; 004 71 CHSMOVE( .DESCC DSCSW_LENGTH J, .DESCE DSCSA ae J, 

3; 2005 ie; (CMD BUFFER _+ .CMD_DESCE DSCS$W_LENGTH J )); 

; Boe 7 CMD_DESCC DSC$wW CENgTH j= 

: 008 a -CMB_DESCC DSCSW_LENGTH ] + .DESCC DSCS$W_LENGTH J; 

; 2009 7 

3; 2010 7 'Put command terminator at end of string. WARNING!!! If more than one 
3; 2011 78 ‘character is used as a terminator this won't work. This only places one 
3 oig 3 ibyte in the buffer. 

; 014 3) CHD _BUFFERL -CMD_DESCCE vie LENGTH ] J) = .COMMAND_END; 

: at? 8 CMD-DESCC OSC$W_CENGTH J = .CMD_DESCE DSC$W_LENGTH') + CMD_END_LEN; 

i $019 284 

; gis 85 ‘Write the command string out. 

: 201 Hy ! 

3; 2020 PUT_REGIS( CMD_DESC ); 

3; 2021 88 

3; 20 § 89 

: 20 90 RETURN; 

3 2024 91 END; ! End of routine PUT_REGIS_TEXT 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


00 00 27 29 29 33 69 28 57 $0 28 54 00104 P.ABC: .ASCII \T( WCi3))'\<0><0> 3 
00 00 27 OO1EO P.ABD: .ASCII \*\<0><0><0> : 

COMMAND _START= P.ABC 

COMMAND _END= P.ABD 


-PSECT S$CODES,NOWRT,2 
007C 00000 PUT_REGIS TEXT: 
.@ORD 


Seve R2,R3,R4,85,R6 3: 2195 

SE FF74 CE 9 3 MOVAB -140(SP5, §P F 

08 AE CLRW  CMD_DESC4+2 ; 38 
04 ar AE ; A HOVAB CHD “BUFFER. CMD_DESC+4 ; 

08 Ae 00000000' 0 OA 2 F MOVC3 #107 COMMAND START, CMD_BUFFER 3 2264 


<m 


n 8 
EDF SGRAPH DFSGRAPH plotting module 16-Sep-1984 00:39: VAX-11 Bliss-32 V4.0-74 Page 67 
ate tt ut REGIS text to’the terminal 12-808-13 4 90:39:68 ST EKSUNEHAS TERS CUBE SRCTEDFGRE .832;1 . (295 
OA B60 18 MOVW #10, CMD_DESC : 65 
$5 6E : 18 od Sa CMD_DESC? £3 ; $563 
04 AES 68 AC 1€ MOV INTENSITY, CMD_BUFFER-4(RO) ; 
56 4 AC B 4 MOVL DESC, R6 
08 AE4O 046 B66 66 028 Move (R6), @4(R6) 
g 66 AO OeF ADDW2  (R6) CMD _DE 
bE 3¢ : MOVZWL CMD DESC, ~R 
08 AE4O 00000000' OVB COMMAND END, CMD_BUFFERCROJ 
BS pis, ip.pest 38 
000000006 00 1 4 004 CALLS #1, LiBsrUT OUTPUT 
09 0 £ 004 BLBS  §RTN_STATUS,~1 
DD 4C PUSHL RTN_STATUS 
000000006 00 1 FB Oo ee CALLS #1, LIBSSIGNAL ; 
04 00055 1$: ET ; 2291 


7 
| 
: 2271 
CMD_BUFFERCROJ 3 He 
§¢ + 2276 
; 81 
; Routine Size: 86 bytes, Routine Base: S$CODE$S + O9ED 


<m 


EDF SGRAPH EDFSGRAPH plottin nodule 1b-5e -Sep-1984 9: VAX-11 Bliss-32 V4.0- Page j 
TOO Shade a ree + the graph et 7 99: 3} a DISKSVMSMASTER: CEDF 7 SCSeDF cae. B32;1 . (28) | 
3 § 38 1 ZSBTTL ‘Shade a row of the a 

: 4 : ROUTINE SHADE ROW REGIS ( DIMI, SHADE_LINE, SHADE_ARRAY_DESC ) : NOVALUE = 

: 059 38 1 144 

; ogy 38 1 

; 8 4 ! FUNCTIONAL DESCRIPTION: 

: 20 : 39 1/ Determine the length of the vector to be drawn, where the shading 

‘ 5 ¢ o} ; Line is to be located and the intesity of the shaded area. 

3 O¢ FORMAL PARAMETERS: 

; 8 0 1! _ : index for the current row of the shade array 

3; 2039 05 1! SHADE _LINE : realtive location of the shade line 

; rk 89 : SHADE “ARRAY DESC: descr inter for the array of shading information 

; 04g 08 IMPLICIT INPUTS: 

$868 1G aca 

; 046 1g IMPLICIT OUTPUTS: 

88 1B] coat 

; 050 16 | ROUTINE VALUE: 

836 TBE alam | 
; 205% Q 1! COMPLETION CODES: 

: 086 5 i No 

3 ne 

: 205 1 i 

3; 2058 ; 4 1! SIDE EFFECTS: 

3; 2059 5 1! 
3 eo $ 1 None 

Bh B he 
3 1 

3 2064 0 BEGIN 

3; 2065 1 | 
3 06? § SHADE _ARRAY_DESC : REF BBLOCK !Descriptor for the shading array 
; 5 : | 
3 § LOCAL 

; SHADE _ARRA of intesities for shading 

H 3 REF 100. DIM ARRAYC LONG, “ONS NED 

5 Dd! ‘Index for second dimension of xycarray 

3 0 CURRENT VALUE, iCurrent yotue in row, for comparisons 

3 1 EPEA ol ‘ ‘Number of values a to current value 

3 § iCurrent row on grap 

5 COL OMA “hos, ‘Column postion or call ut 

; : VECTOR: “LEN ‘Location of x-origin when working with a VT125 


E PH sep Lotting module 16-5e -1984 9: VAX-11 Bliss-32 V4.0-74 p 9 
R800 Shade a row of the graph ~3007 138s 99: 3} 8 DESKSVMGHASTERSCEDE Ske SEDFGRF .832:1 age 38) 


: 


: 


09 


:For each element in the row: 


DIM2 = 0; 
WHILE -DIM2 LEQ .SHADE_ARRAY_DESCC DSCSL_U2 J 
BEGIN 


4 
5 'Save the current xy-value for comparisons; determine the position 
$ rin the row. 


CURRENT VALUE = .SHADE ARRAYC .DIM1, .DIM2, .SHADE_ARRAY_DESC J; 
COLUMN_POS M2; 


5 
1 
$99 ¢ ‘Compare the current value to all subsequent values in the row 
098 tuntil a value which is not equal is encountered. Keep a count 
444 : 1of the equal values, so the right number can be printed in the 
igraph. 
1 
03 4 bime = ,DIM2 + 1; 
ei os WHILE bine LEQ . «SHADE _ARRAY_DESCC DSC$L_U2 J 
05 oy »CURRENT_VALUE EQL .SHADE_ARRAYC .DIM1, .DIM2, .SHADE_ARRAY_DESC ] 
09 Lf DIM2 = .DIM2 + 1; 
08 7 
09 74 


ee a a a 2s SS ss SS Ls SS os SS YY 


10 75 ‘Calculate the number of equal values and draw a shade + saad of the 
} 7 : appropriate Length (number-of-equal-values * unit-width) 
if 7 REPEAT. COUNT = -DIM2 ~ 2COLURN N_POS; 
14 7 VECTOR™LEN REPEA *"UNIT_W 
15 80 MOVE OCORSOR _REGIS( Ears” RGIS. SHADE; VECTOR LEN. No _VALUE, 
1g 3] -CURRENT_VALUE + ‘0’, .SHADE "); 
18 383 END; 'DIM2 
19 384 1 END; ! End of routine SHADE_ROW_REGIS 
OOFC 00000 SHADE_ROW_REGIS: 
-@ORD Save R2,R3,R4,R5,R6,R7 : 33 
53 04 CLRL D 3 235 
52 0c ag dO MOVL SHADE_ARRAY_ DESC, R2 : 2351 
28 OA 5 1 CMPL ) 40(R2) 3 
4 4 BGTR : 
51 52 0D MOVL Re DESC_A : 2358 
50 04 Ac 18 A c MULL é t ESC KORY Ree, DIM1, RO 
3 04 B140 D MOVL “bese ADR LCL)CROI, CURRENT _VALUE F 
6 D MOVL Th COLUMA_P : 
1) INCL DIM 3 
28 = A2 p CMPL pine, 40(R2) 3 
1 4 BGTR 3 
50 52 od0 MOVL R2, DESC_ADR_LCL : 2370 


horor 
Son 
ono 


a 


9 
EDF SGRAPH eprceurs Lotting module Ib-se -1984 00:39:47 VAX-11 Bliss-32 V4.0-7 e 70 
te Shede 8 ree of the graph 1 ~3007 138% 99:39: :55 DISKSVMSMASTER:CEDF. se EDFGRF .832;1 mg (29) 
51 046 =A 18 AO C MULL 24 (DESC ADR_LCL), DIM1, R1 ; 
5 3 i ADDL2 DIM2 : 
04 8041 fs p CPL CURRENT VALUE, @4(DESC_ADR_LCL)CR1) : 
? $: UB UMN pos DIM2, REPEAT_COUNT : 2378 
Hf 33 . ‘3 cS i ’ nuts a a ie EP EAT_couNT, CEE TOR LEN ; 3379 
98 AG oF 4 PUSHAB L8CCURRENT VALUE) : 
- emitted puget | VECTOR’ LEN a 
PUSHL @# : 
FE2E CF 8 rs 33 athe re MOVE_CURSOR_REGIS F 
AF 1 BRB F 
04 00059 4s: RET : 


; Routine Size: 90 bytes, Routine Base: S$CODES + 0A43 


os 
eo & 
ane — 
———- — NN eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeEEEEEEEEEEEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEOEOOOOE Eee 


9 
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Vo4=000 Braue portion ofthe ber graph 1Egeo-19se 19:37:35 DI SkSVMSMASTERS CED. SRCSEDF GRE .032; 1" 9° (30) 


<2 


] 

| 
; 2121 5 1 XSBTTL ‘Draw a portion of the bar oreph’ O 
i 31g § | ROUTINE DRAW_BARS_REGIS ( Y_VALUE, X_VALUE, REPEAT COUNT ) : NOVALUE = : 
5 2126 1 !¢6 
: 2125 $ 1! 
5 i $ 8 : FUNCTIONAL DESCRIPTION: 4 
; i 8 35 ! Draw the bars for the current row segment of the REGIS Line graph. 4 
; 130 34 | FORMAL PARAMETERS: a 
: 21 § 38 1/ Y_VALUE : The cow in which contains the top of the bar. 4 
3 ay 97 3! X_ VALUE : The first column of this row segment 
; ! : 38 : REPEAT_COUNT : The number of bars to be drawn ei 
: 21 400 1! IMPLICIT INPUTS: 0 
3 ey 401 1! Oo 
1 ee Bh ee. : 
: 140 404 { IMPLICIT OUTPUTS: 0 
: 1 4 1 None OH 
; 128 te 4 | 0( 
3 ie rt : : ROUTINE VALUE: + 
Be BY) tm ; 
; 148 aig | COMPLETION CODES: of 
1 eee | ‘ 
> 215 416 1 | SIDE EFFECTS: 0 
3; 215 417 1! Oo 
3 2154 $18 1! None oO 
3; 2155 41 1! it 
i $e tg) | I+ ; 
; 138 42¢ @ BEGIN Oo 
3 2160 424 2 LITERAL & 
3 2161 425 BAR_GAP = 2 'Number of ixels between bars in hte graph 0 
$185 39 ; o¢ 
3 2164 4 LOCAL 
3; 2165 4 $ 'y value for a pixel address 8 
; 166 430 COLOMN_POS, ix value for a pixel address a4 
3 216 431 SHADE _CINE ‘Line to which bar is shaded 
3 2168 432 3 : 


Bw. 
VOu-600” «Braue portion of the bar graph 1eSepm19be 19:21:55 DISKS WMSHASTE 


3 4 : 1 Initialize values. 
; 3 435 ROW POS = ( .Y _VALUE = 1 )_® UNIT_HEIGHT; 
: el? 4 COLOMN POS = ( .X"VALUE * UNIT WIDTH”) + X_ORIGIN + 1 ; 
3 ie $ SHADE_CINE = LINE~GRAPH ten” * ONIT_HEIGHT; 
: 217 4 
3 77 re ;Move the cursor to the starting postion. 
; 138 ote MOVE_CURSOR_REGIS( GRFS_REGIS POS, .COLUMN_POS, .ROW_POS, 
: 21 44 NO_VACUE, NO_VALUE ); 
3 2181 644 
3: 21 ; 445 
3 \3? re ‘For each bar in the Line graph: 
3 186 rn DECR LOOP_COUNT FROM (.REPEAT_COUNT = 1) TO 0 
3 218 430 BEGIN 
3 2188 451 
3 1%? 126 :Draw a vector; shade it to the bottom of the graph. 
3 2191 654 hove _CURSOR_REGIS( GRFS_REGIS_SHADE, (UNIT ulore - BAR_GAP), NO_VALUE, 
: 198 439 DARK_INTENSITY, .SHADE_LINE 
3; 219 4 $ 
3 2194 45 
3 ib <38 :Move the cursor over, to create spaces between the bars. 
3 199 460 to LUMN_POS = .COLUMN_POS + UNIT _WID 
3 2198 461 MOVE _CORSOR_REGIS( GRFS REGIS POS. 5OkurM. POS, NO_VALUE, 
3 2199 46¢ VALUE, NO_VALUE ); 
3 00 46 
: 2201 464 END; 
3; 2202 465 
> 2203 466 1 END; ! End of routine DRAW_BARS_REGIS 
003C 00000 DRAW_BARS REGIS: 
.@ORD Seve R2,R3,R4,R5 
55 FE25 cr Hi 90002 MOV MOVE CURSOR REGIS, RS 
50 04 Ac 1 ¢3 00 SUBL #1 r VALUE; RO 
50 12 ¢4 MULL2 #18, RoW mit 
52 08 AC 1 5 f MULL #18, X VALUE, 22 
52 00c0 E 00014 MOVAB 192(R oP 4GotUnn POS 
54 B4 F OA 19 MOVZBL #180, SHADE_LINE 
£ 1 CE 1 MNEGL #1, 2(3py” 
7E 1 CE MNEGL #1, -(SP) 
9 dD PUSHL ROW_POS 
DD PUSHL COLOMN _POS 
5 D4 CLRL 
$5 05 F CALLS MOVE _CURSOR REGIS 
Oc AC p MOVL REPEAT. COUNT, LOOP_ 
1 BRB 
4 DD 1$: PUSHL SHADE_LINE 
1 dD PUSHL #49 


EDF .SRC EDFGRF.832;1"~ 


OUNT 


72. 
931 ) 


GOOOCOCOCCOOSCOCOOCOCCOCOCOCOOOOSeoCOoOOo <m 


3; Routine Size: 87 bytes, Routine Base: SCODE$S + OA9D 


3; 2204 


2467 1 


EDF SGRAPH EDFSGRAPH plotting module 18-seo-t 4 00:39:47 VAX-11 Bliss-32 
R00 Draw a oaetion of the bar graph 730071382 99339585 DISKSVMSMASTER: 
*  § meg gly“ 
dD PUSH 
5 p Fe CALS move ose REGIS 
2 C 4 ADDL Hib, _POS™ 
E cE 4 MNEGL ma se 
7E 1 & <8 MNEGL AB (SP) 
7E . oe MNEGL #1, =(SP) 
2 00 4C PUSHL COLUMN_POS 
D4 4 CLRL ak 
65 2 FB CALLS MOVE CURSOR_REGIS 
Ta Fa 99 3 2s: SOBGEG tobP™ COUNT, 1$ ~ 


E 
V! 
: 
0 
) 
0 
1 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 


H 9 | 
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tee Format the weenie heeders 1o2808=1 382 9033988 DISKSVMSMAS TER: CEDF . SRC EDF GRF .832;1 °° (32), 


3 06 468 1 ZSBITL ‘Format the x-axis headers’ 

3 : } ROUTINE DRAW_X_AXIS ( GRAPH_LEN ) : NOVALUE = : 
; 471 1 !46 | 0 
3 1 472 1! 8 
: 9211 473 1 | FUNCTIONAL DESCRIPTION: | 9 
; 18 475 1! Draw the x-axis Line and then write the x-axis numeric and 

: i? 278 : } descriptive labels. These are the same for all graphs. | 
3 i 47g | FORMAL PARAMETERS: | 
3 + "4 : GRAPH_LEN : the number of rows in a the graph 9 
; 9 48¢ | { IMPLICIT INPUTS: ; 
; g 484 1 | Y_AXIS_LINE : column which contains the y-axis Line. 0 
; 485 1! DEVICE-FLAGS : a sonpvere of flags which are set or cleared by 0 
3 4 ry 1} LIBSSCREEN_INFO depending on the terminal 0 
: 5 4 : } characteristics. | $ 
; ; 489 { IMPLICIT OUTPUTS: ; 
: $55¢ 491] None 9 
3 2231 493 1 ' ROUTINE VALUE: 0 
3 ; 494 1! | 0 
: 495 1! None 0 
$ £36 1! 0 
3 5 497 1 !' COMPLETION CODES: 
498 1} | 

: 7 499 1! None 
3 500 1! 0 
; 340 23) ! : SIDE EFFECTS: 
> 2261 208 1 None 0 
3 ¢g 5064 1! 0 
. en oie 

; 45 207 BEGIN 

> 2246 259 LITERAL 

3 224 510 INCR VAL = 5, 'The increment between x_vaiue labels 

+ 226 511 TWO_VALUES = 2 ifor formatting last x-value Label | 

: $520 218 ‘ 

3 225 514 2 LOCAL | 

3 225 515 RTN_STATUS, ‘Status returned from external calls 

3: 2254 16 3 ‘Row postion for output 

+ 2255 1 COLOR. Pos, iColumn postion for output | 

3 38 18 ROW_INTR, ‘Distance to next row 

3 51 COLOMN_INCR, ‘Distance to next column | 

: 225 9 Y_ORIGIN bent most column in graph | 

+ 225 CRARACTER_ WIDTH, igidth of character, for calculations 

3; 2260 § PLOT _WIDTA, 'The width of the current graph 

3; 2261 BUF F : Bul tee or building the output 

3 2262 524 VECTORE MAX_PAGE_WIDTH, BYTE J, 


75 
ST EKSUMGMASTERSCEOE Sac TEDFGRF B32; 1°87 (355, 


cpr sennrn DFSGRAPH plotting module 15-Sep-1984 99: 3: $f VAX-11 BL le s-32 V 


ormat the x-axis headers 14-Sep-19 


63 5 DESC : ‘Descriptor for BUFFER 
: BBLOCKE DSC$K_7_BLN J 


| 
: 


M_ARIS_HEADER = TASCID'Bucket $ I (number of blocks)’ 
c label for the x-axis 
M_AXIS_LABEL_N = PLIT ( xascio 


9 BIND 
: | Header for the x-axis 
? 


Se Be Se Ge Se Ge Ge Gs Ge Se Ge Ge Ge Ge Ge Se Se Sse eee 
—~ 


ZASCID' o 

5 ZASCID' 10", 
74 ZASCID'15°, 
75 ZASCID' 20°, 
7g ; RASCID*e5",, 
7 ZASCID' oe 
7 40 ZASCID' 
7 41 ) : VECTOR, 
80 54 ‘Formatting for the x-axis Line 
Bi 54 AXIS_LINE ht Bea); - s+ «= eeeneteoeneeteonxnenewcteeaoeneteteoeneeae ¢ = ¢!* 
82 544 : VECTOR; 


9 
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R800 sehen the avanis headers 1 ~3007 1388 90:59:86 DLEKSVMSHASTER-CEDE SRCTEDFGRE .B32:1 age 508 


| ¢ > hia values for distance between rows and columns. Draw x-axis 
i . 


if .DEVICE_FLAGSC SCRSV_REGIS J 
THEN 
BEGIN 


tInitialize. 


ROW_INCR = = 3: 
COLOMN_INCR = 0; 
Y ORIGIN Y Axis E + AXIS_SHIFT; 


=, LIN 
CRARACTER_WIDTH = CHAR_WIDBTH; 


82% 


‘Position x~axis Line. Draw it. 


ROW POS = UNIT_HEIGHT * ( .GRAPH_LEN ) + AXIS_SHIFT; 
COLOMN_POS = .Y_ARIS_LINE; 


PAEAEQAPEQARQPE MII 


coC0 et pet PRR Te = 
Some Ge DOES NONE UO Ooo WO AP UNG oO Ode GOA aR 2O-Dee WOR 


MOVE _CURSOR_REGIS( GRF$_REGIS_POS, .COLUMN_POS, .ROW_POS ); 
COLUMN_POS = .Y ORIGIN * ( MAR BUCKET SIZE~* UNIT WIDTH ); 
ROVE _CORSOR_REGTS( GRFS$_REGIS_UCTR, .COLUMN_POS, NO_VALUE ): 


ELSE 
BEGIN 
tInitialize. 
ROW_INCR =1; 
COLOMN_INCR = SEPARATOR_WIDTH; 
¥ N = ,Y_AXTS_LINE; 
CRARACTER_WIDTH = 1; 
:Position x-axis line. Draw it. 
OW.POS = .GRAPH_LEN + 1; 


R 
COLOMN_POS = .Y_ORIGIN; 
PUT _TERT( -AXISTLINE, ROW_POS, COLUMN_POS ); . 


oO 


POPUIRUMURINUNNUN 2 2 ee 


Ly ah ah ab Ab Ab Ab db Ab Ab Ab db db bb db dbedbh db hth Ah sh sb sh sh ah sh sh sh sh aba 


;Move cursor to the beginning of the next row, put out first numeric Label. 


ROW_POS = .ROW_POS + .ROW_INCR; 
COLOMN_POS = .Y_ORIGIN + .COCUMN_INCR; 


DOOOO 
MrwnN— 


Le 
RFU SS 


IF .DEVICE_FLAGSC SCRS$V_REGIS J 
THEN 


BEGIN 
MOVE CURSOR REGIS( GRFS_REGIS POS, .COLUMN POS. .ROW POS ; 
PUT_REGIS_TEXT( .X_AXIS"LABEL-NC 6 j, LIGHT_INTENSITY ); 


Bo Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Ge Se Bi Ges Ge Se GH Ge Gs Se Ge Ge Ss Oe Ge Se FOSS Se Gs Se Se Be Se Oe Se Ge Ge Os Ge Se Se Ge Se Ge Se Se esee 
br tr thr 
LS Se Ve 


So 
oon 


2 eee 


Q 
: 
4 
: 
0 
4 
¢ 
! 
: 
| 
| 


32 V4.0-74 Pp 7 
Format the x-axis headers 14-Sep-1 ae cEDE SRCTEDFGRE .B32:1 age 56) 


§ 


Ent Sena EDFSGRAPH plotting module 16-Sep-1984 90:39:62 


oO 


CHAR_HEIGHT + SEPARATOR_WIDTH; 


—rm 


IGH 
DTH; 


ROW_INCR = CHAR 
COLOMN_INCR = UNIT~W 
END 

ELSE 
PUT_TEXT ( .X_AXIS_LABEL_NC 0 J, ROW_POS, COLUMN_POS ); 


‘For each subsequent numeric label: positon cursor and write the Label. 
incr DESC_PTR FROM 1 TO (.(X_AXIS_LABEL_N = FULLWORD) = TWO_VALUES ) 


BEGIN 
COLUMN POS = <¥ ORIGIN + < COLUMN.INCR * INCR_VAL * .DESC_PTR ); 
IF .DEVICE_FLAGSC SCRSV_REGIS 
THEN I 

OL S$ = UNI 


He 
COLUMN_POS, NO_VALUE); 
SC_PTR7J, LIGHT_INTENSITY ); 


| 
| 
| 
| 
4 BEGIN 
4 
4 
om 
4 
ELSE 
— PUT_TEXT( .X_AXIS_LABEL_NC .DESC_PTR J, ROW_POS, COLUMN_POS ); 
:Position and write the Last numeric Label. 


COLUMN. POS = .COLUMN._POS + ; COLUMN, INCR * TWO_VALUES; 
If PEVICE_FLAGS SCRSV_REGIS 


BEGIN 
MOVE. CURSOR_REGIS 
PUT_REGIS_TEXT( 


AAA AA AALATRININIDINININUNININ 3 3 3 = 3 3 3 OOO 
NO MEN 9 ODA UNE WIN SO OOVNOUE WO 0O@ vA 


( GRF$_REGIS_POS, .COLUMN POS, NO_VALUE ); 
x AXIS LAB C 2 (X_AXIS_CABEL_N = FULLWORD) - 1 J, 


PAE A AAA A AAA AAA AAA AA AAA AAA AAA AAA AAA AAO 


E 
\ 
¢ 
¢ 
q 
q 
Q 
¢ 
q 
¢ 
q 
¢ 
q 
¢ 
q 
¢ 
¢ 
q 
¢ 
q 
¢ 
Q 
Q 
C 
q 
Q 
q 
Q 
Q 
q 
q 
q 
0 
¢ 
i" 
| 
| 


Be Se Se Se Be Se Os Se Se Se Se Se Se Ss Se Se Se Se Fe Se Ge Se Fe Se Ge Se SF Se Se Se Ge Ge Ge Ge Gs Se Se Se Ge Se Ge So Se Se Ge Se Ge Se SESH Se SESS Se Sseeee 


38 LIGHT_IR ): 
39 END 
641 ELSE 
P 648 PUT_TEXT( .X_AXIS_LABEL_NC .( X_AXIS_LABEL_N = FULLWORD ) - 1 J, 
643 ROO_POS> COLUAN_POS); 
645 
o68 :Put the descriptive labels out. 
648 ROW_POS = .ROW_POS + .ROW_INCR; 
64 PLOT WIDTH = MAX BUCKET SIZE * .COLUMN_INCR; 
630 COLUAN_POS = (PLOT WIDTR - (.X_AXIS_HEADER<O,8> * .CHARACTER_WIDTH) )/2 
65 iid - 
636 
634 IF ,DEVICE_FLAGSL SCRSV_REGIS ) 
696 BEGIN 
65 MOVE_CURSOR_REGIS( GRFS_REGIS_POS, .COLUMN_POS, .ROW_POS ); 
658 PUT_REGIS_TEXT( X_AXIS_READER; LIGHT_INTENSITY ); 
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398 $38 END 
4 °8 ELSE 

: 1 re PUT_TEXT( X_AXIS_HEADER, ROW_POS, COLUMN_POS ); 

408 664 END; ! End of routine DRAW_X_AXIS 


-PSECT SPLITS,NOWRT ,NOEXE,2 


75 28 20 65 7A 6 0 74 65 63 75 42 OO1E4 P.ABF: ASCII \Bucket Size (number of blocks)\<0><0> 
29 68 63 6F 6C 63 33 ee 6F $3 5 § § iD ite 
80060006" g PeABE: -LOMRESS PeABE 
00 00 3 ; 0 of P.ABI: .ASCII \_1\<0><0> 
01 00 0210 P.ABH: .LONG 17694722 
0000000" 00214 “ADDRESS P Abt 
00 00 0218 P.ABK: ASCII \ 5\<0><0> 
010€00 0 1 P.ABJ: .LONG 17694722 
009 000° 00 “ADDRESS P.ABK 
00 00 30 31 00224 P.ABM: ASCII \10\<0><0> 
010 00 2 0228 P.ABL: .LONG 17694722 
0 009 * 0022¢ “ADDRESS P.ABM 
00 00 1 00230 P.ABO: .ASCII \13\<0><0> 
01 £0003 0234 P.ABN: .LONG 17694722 
09009 * 00 38 “ADDRESS P.ABO 
00 00 023C P.ABQ: ASCII \20\<0><0> 
010 0002 00240 P.ABP: LONG 17694722 
09 009 * 00244 “ADDRESS P.ABQ 
00 00 0248 P.ABS: .ASCII \25\<0><0> 
010 0002 0024C P.ABR: LONG 17694722 
0000000' 0 eADDRESS P.AB 
00 00 4 P.ABU: ASCII  \30\<0><0> 
01 00 0258 P.ABT: .LONG 17694 
0000000" 00 3 “ADDRESS P 
00 09 0260 P.ABW: .ASCII \36\< ><0> 
10€00 0 64 P.ABV: .LONG 17694 
0060000" 0 68 “ADDRESS, P. ABU 
00000000" 00000000' 00000000' 00000000° 9000006" ° p 5 * 00 $5 P.ABG: -ADDRESS P.ABH, P.ABJ, P.ABL, P.ABN, P.ABP, - 
0 20 20 0 0 0 0” 20 4 8 i P.ABZ: .ASCII Foes fee bey + \ 
0 2 % 2 $ $ 38 $ 3 oo 3 fo 3 O39 
20 2D 20 28 20 D 8 D 20 2D § D 8 2 5 ob ASCII] V ter ee te ee = & = KOKO 
0 28 20 2D 20 28 20 2D 20 2D 02¢ 
1 00 0 D4 P.ABY: .LONG 17694786 
0 0000" 00208 “ADDRESS P.ABZ 
00 9 D¢ "L 
0000000" 002E0 P.ABX: ADDRESS P.ABY 


$_HEADER= P.ABE 
S-LABEL_N= P.ABG 
LINE= P.ABX 
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04 


04 


000000006 


000000006 
04 


0125 


6A 


. 


eon 


0240 


sO 
&o 


"9 
16-Sep-1984 00:39:47 VAX-11 BLiss-32 v4.0-76 ° 9 
Freee eee ose ee Me taleteac cece sacSeprore.e32;1 98 «35s 


«PSECT 


OFFC 00000 DRAW_X_AXIS: 


00 9 90002 
0 9E 
FE 3 1 
A ) 1A 
e1 1 
60 
5 be Gines 
03 06 G00e8 
I 5 Bae 
50 D 038 
AE ODD 038 
AE 0D 0003E 
7 04 00041 
Os Fe Goods 
$3 cE Babee 
AE OD O004E 
ai bb G0051 
93 11 0005 
G1 00 G0058 
Fs DO OO00SE 
G1 BO Gooet 
9 DO OO06A 
SE pp 464 
AE F OOO6F 
AJ DD 0007 
. §F 007 
0 € 007C 
bp 900% 
57 £0 Goes 
3 E1 00 85 
AE DD 00094 
AE 0D 00097 
re be OOOoh 
gs FB anos 
AD OD Al 
0 4 Bas 
1 D AQ 
12 99 AC 
1B AF 
5E 0 B1 
A f B3 
AJ DD 00086 


18: 


2s: 


3$: 


#3, MOVE_CURSOR_REGIS 
X_AXIS_LABEL_N 

42 PUT _REGIS_TEXT 
#i?, RO@_INCR 

#18, COLOMN_INCR 


SCODES ,NOWRT,2 
Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 2469 
DEVICE FLAGS, R : 
MOVE _CORSOR_REGIS, R10 F 
X_AXTS LABEL _N-4, RI : 
-148(SP), SP : 
Y_AXIS LINE, RO t 2557 
aR. DEVICE FLAGS, 1$ : 248 
#3. ROW_INCR + 255 
COLUMN INCR : 236 
(RO), Y_ORIGIN : 255 
#9, CHARACTER WIDTH : 358 
#18, GRAPH_LER, R1 : 256 
5(R1), ROW-POS : 
RO, COLUMN“POS + 2564 
ROW_POS + 2567 
COLOMN_POS ; 
-(SP) F 
#3 MOVE CURSOR REGIS : 
576(R3) ,~ COLUMN~POS : 2568 
Hi, -(SP) + 2569 
col POS ; 
#3, MOVE_CURSOR_REGIS F 
2$ 3; 2548 
#1, ROwW_INCR : 2577 
a3, COLOMN_INCR : 2578 
RO. Y_ORIGIN + 2579 
#1, CRARACTER_WIDTH + 2580 
#1, GRAPH_LEN; ROW_POS : 2585 
Y_ORIGIN, ~COLUMN_POS + 2586 
SB 3; 2587 
ROW. POS ; 
AXIS_LINE 3 
#3, CIBSPUT_SCREEN : 
RN St US, ~2$ ; 
#1, “LIBSSIGNAL : 
ROW_INCR, ROW POS : 2593 
COLORN INCR, Y_ORIGIN, COLUMN_POS 3 25 
#2, DEVICE_FLAGS, 3$ : 2597 
ROW POS + 2600 
COLOMN_POS ; 


ROW _POS 
X_ARIS_LABEL_N 
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hae oe f 
0 
=32_ V4.0-74 Pihadt 5: \ 
1b-se0-1944 13:37:85 BEEKSUMGMASTERsCEDE SkcSerGne.832;1° 29°38 ) 
4 EDFSGRAPH plotting module 14-Sep-1984 12:21: P 
vOi-660" —_Fovmat the” asanta headers rh 0008 CALLS. 43. cuasnur.scneen | 
were: 6 E : PUSHL  RINZSTATUS” ; 
Bd 000¢ CALLS 1s LIBSS1GNAL i 2612 f 
FB 000C CALL * AXIS _LABEL_N=4, R6 ; 2616 
; 47 i oD 5$ Ste DESC APTR, COLUMN_INCR, RO ; ) 
ae nut " Pos : ( 
ee nt ea eee ag | 
Ge 3g 04 A92& bE OOODE BBC © #2 DEVICE FLAGS. 6S : 3620 ‘ 
19 éB 13 ei OOS SUBL2 Hi6, COLUMA_POS ; 2621 
GL "Te : 
7: 04 4 3 itd PUSH COLURN POS ; 
rE OG O0F} FALLS #3, MOVE_CURSOR_REGIS : 2622 
6A a Bs BUSHL ABI ‘ 
65 bp G0r8 CALLS. #2. PUT_REGIS_TEXT i 2617 
02 RB 7$ : ( 
dente St OD OO10l 6S: PSHE SP ; ¢ 
AE SF 00103 PUSHAB ROW POS 
8S bp 90106 CALLS. #3, LIBSPUT_SCREEN ; 
3 FB 00108 BLES, RTN_STATUS. “75 : ( 
pete Hi es 09116 PUSHL HN -CIBSSIGNAL : 261 ( 
s, fi. : 363 ( 
Q) FR OO11, | CALLS, #1. “LIBSSIGNAL : 26 
re ae eee i) | 
02 £1 00122 wi. ~(SP) ~ ; ( 
1A eg, OF BE Obie PUSHL EOLuRW POS 
f De OOteC CALLS #3, MOVE_CURSOR_REGIS 2637 ! 
6A PUSHL a 
: PR RM Pls tee ei oe al 
5 6949 b 3 3 CALLS #2. PUT_REGIS_TEXT 2633 } 
0125 CA 1E 11 001 BRB p ; 
140 8s PUSHL  $ ; 
08 aE OF aH PUSHAB ROW PO EL_N-6 RO : 
£5 0 0014 PUSHL —_XTAXIS“LABEL-N-GERO : ( 
50 6940 DD 00148 th eae ~ SCREEN 
000000006. 00 OF Ee Ools BLeS RIN STATUS, 
” 3 bb 0015 CALLS ALC IBSSIGNAL : 2648 
000000906 90 9 cD a1 a | gall TEOLUANEINCR, PLOT WIDTH gi3 
05 XIS HEA ; 
30 Bee Bolen PULL : pease site RI | 
1 1 SUB ‘ > 2651 
0 y ¢ DIVL? «#2, R UMN_ POS ; 3654 
BER RS Bilin sam Ba] | 
E E1 POS 
%6 08 04 AE BD 0018 PUSHL — ROW_ 
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04.600 Format the n-anis headers 1 ~3007 138% 90:39:66 SEK SUMGHASTERSCEDE SRCTEDFGRF .832:1 oe 58) vc 
04 AE DD 0017 PUSHL COLUMN_POS : gf 
7E D4 1 CLRL (SP) : 4 
6A 9 FB 001 CALLS #3, MOVE_CURSOR_REGIS : i 
pd 1 PUSHL #54 : 2658 
98 AQ SF 001 PUSHAB X_AXIS_HEADER : Q4 
0125 CA 02 fe 13 CALLS #2, PUT_REGIS_TEXT 3 +86 ef 
SE OD 194 108 PUSHL SP + 2662 04 
98 A 19 PUSHAB ROW_POS : 05 
] A 138 PUSHAB X_ARIS_HEADER é Q§ 
000000006 00 4; 01 CALLS #3, LIBSPUT_SCREEN : 05 
09 8 E Rif BLBS RTN_STATUS, 11$ : 84 
DD OO1A PUSHL RTN-STATUS : 5 
000000006 00 01 FB OOIA CALLS #1, LIBSSIGNAL : B3 
04 OO1AC 118: RET 3 2664 Si 
; Routine Size: 429 bytes, Routine Base: SCODES + OAF4 Og 
05 
; 2404 05 
405 666 1 END 
406 667 0 ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 740 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS ig NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 3235 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eecececece Symbols eceeceoe Pages Processing 
File Total Loaded Percent Mapped Time 
-$255SDUA28: CSYSLIBISTARLET.L32;1 9776 13 0 581 00:01.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:EDFGRF /OBJ=OBJS:EDFGRFE MSRCS$:EDF GRE /UPDATE=(ENHS$:EDF GRE) 
; Size: 3233 code + 752 data bytes | 


EDF SGRAPH 
be 600 

; Run Time: 3: 4 
; Elapsed Time: :05.6 
3 Lines/CPU Min: ° 


ry Used: 213 pages 
Compilation Complete 
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